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Keine Zeit verlieren... 



gegenüber dem Einzelbezug. 
Logisch, dies sind Vorteile, 
die Sie nutzen sollten. 
Bestellen Sie noch heute Ihr 
Abonnement mit der ent¬ 
sprechenden Bestellkarte. 


PC International kostet im Abonnement: 
Im Inland und Westberlin: für 1/2 Jahr 30- DM 


Im europäischen Ausland: 


Im außereurop. Ausland: 


für 1 Jahr 
für 1/2 Jahr 
für 1 Jahr 
für 1/2 Jahr 
für 1 Jahr 


60 - DM 

45 - DM 
90,- DM 
60,- DM 
120- DM 


Ordnung und Übersicht schaffen die 
beliebten DMV Sammelmappen 


» Amsti 


Ohne Zeitverlust und ohne 
Frust wollen Sie Ihrem Com* 
puter frönen. 

Ein Abonnement bringt Ihre 
“PC International“ immer 
pünktlich ins Haus - auch 
während der Urlaubszeit! 
Und dazu noch mit 


Preisvorteil 


Bitte Bestellkarte benutzen 
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“Neues und Bewährtes“ 


Liebe Leser, 

die vor Ihnen liegende Ausgabe von AMSTRAD International beinhaltet 
wieder eine große Vielfalt an interessanten Themen. Das Titelthema 
“EPROMs“ haben wir auf vielfachen Wunsch unserer Leser aufbereitet. 
Damit wir auch künftig immer Themen aufgreifen können, die Sie 
interessieren, finden Sie in dieser Ausgabe eine große Leserbefragung, bei 
der Sie auf jeden Fall mitmachen sollten. Als Lohn für Ihre Mühe winken 
wertvolle Gewinne. Der erste Preis, ein nagelneuer PCW9512, kann direkt bei 
der Fa. AMSTRAD in Empfang genommen werden. CPC-Anwender, die etwas 
tiefer in die Maschinensprache einsteigen möchten, werden ab sofort in 
unserer neuen Rubrik Assembler, die von dem bekannten Autor Matthias 
Uphoff betreut wird, entsprechende Anleitung erfahren. In den vergangenen 
Wochen war eine starke Zunahme von sogenannten Finsteigern im CPC- 
Bereich zu verzeichnen. Dieser Entwicklung werden wir selbstverständlich 
Rechnung tragen, hier möchte ich speziell auf den in der nächsten Ausgabe 
beginnenden Floppy-Kurs hinweisen. Die PC-Anwender werden gleich 
mehrere Leckerbissen zu schätzen wissen. Besonders hervorzuheben ist hier 
die BASIC2-Erweiterung, für die unser Autor Michael Anton verantwortlich 
zeichnet. Wenn man es nicht gesehen hat, glaubt man es auch nicht — ein 
echter Knüller. Für die treuen PCWlJOYCE-Anwender dürfte die Erweiterung 
zum 3D-Zeichenprogramm ein echter Hit sein. Jedenfalls war die Resonanz 
auf das Hauptprogramm der Ausgabe 5/88 überwältigend. Weiterhin möchte 
ich zwei neue Sonderhefte ankündigen: Nach einer kurzen Pause wird am 14. 
September das neue CPC-Sonderheft erscheinen, am 19. Oktober folgt unser 
viertes JOYCE/PCW-Sonderheft. 

Abschließend noch ein wichtiger Hinweis: Ab sofort sind die Redakteure der 
PC Amstrad an der Hotline nicht mehr unter der Sammelnummer, sondern 
unter eigenen Durchwahlnummem zu erreichen, so daß Sie Ihren 
Ansprechpartner direkt anwählen können — die neuen Telefonnummern 
finden Sie auf der ersten Leserbriefseite. 

Herzlichst Ihr 

Stefan Ritter 
Chefredakteur 
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An unsere Leser 

Die Rubrik »Leserbriefe« ist 
eine Einrichtung für alle Leser, 
die in irgendeiner Form Fragen, 
Probleme oder Anregungen zu 
Produkten, Programmierpro¬ 
blemen oder zu unserer Zeit¬ 
schrift haben. Selbstverständ¬ 
lich sind wir bemüht, alle Leser¬ 
fragen zu beantworten. Doch 
haben Sie bitte Verständnis, daß 
wir nicht alle eingehenden Brie¬ 
fe persönlich beantworten kön¬ 
nen. Oft erreichen uns mehrere 
Briefe zum gleichen Thema, ei¬ 
ner davon wird dann stellvertre¬ 
tend für alle in unserer Zeit¬ 
schrift beantwortet. 

Ihre PC-Redaktion 


Neue Durchwahlnummern 
für die Hotline 

Für eilige Anfragen können Sie 
jetzt Ihren Redakteur direkt er¬ 
reichen. Jeden Mittwoch von 
17.00 - 20.00 Uhr stehen Ihnen 
zur Verfügung: 

Claus Daschner (CPC) 
o(05651) 8009-16 
Jürgen Bomgießer 
(CPC/Hardware) 

0 (05651) 8009-17 
Ralf Schößier (PCW) 

Michael Ebbrecht (PCW/PC) 
o(05651) 8009-18 


PS: Die Redaktion behält sich vor, Leserzuschriften in gekürzter 
Form wiederzugeben. 


Kompressor-Fehler 

In Heft 6/88 habe ich einen 
Fehler im Programm 'Kom¬ 
pressor■' entdeckt. Die abge¬ 
speicherten Screens hatten 
seltsamerweise alle die gleiche 
Länge und wurden nur teilwei¬ 
se auf dem Bildschirm wieder¬ 
gegeben. Der Fehler liegt im 
Listing 1 (Hauptprogramm) in 
der Zeile 340, die richtig hei¬ 
ßen muß: 

340 laenge 

PEEK(&A04E) +256* 

PEEK(&A04F) < 1773 > 

Und hier noch ein Tip, um das 
Programm flexibler zu ge¬ 
stalten: 

Die komprimierten Screens 
können durch Änderung von 
zwei Adressen beliebig im 
Speicher verschoben werden. 
Wenn man von der ursprüngli¬ 
chen Adresse <65000 ausgeht, 
steht in &5001 und &5002 die 
Adresse, ab der der Screen 
aufgebaut werden soll, in die¬ 
sem Fall also &C000. Die 
Adressen &5004 und &5005 
enthalten die Adresse des An¬ 
fangs der komprimierten Da¬ 
ten. Will man nun z B mit 
zwei Bildschirmen arbeiten , 
und der andere Bildschirm soll 
ab Adresse &4000 beginnen, 
so muß man erstens in die 
Adressen &5000 und &5001 
den Wert &4000 im Low- 
Byte/High- Byte- Verfahren 
einpoken (&5001 würde dann 
den Wert &00, &500I den 
Wert &40 beinhalten), zwei¬ 
tens müssen die Adressen 


&5004/ <65005 geändert wer¬ 
den, damit keine Überschnei¬ 
dung auftritt. Empfehlen wür¬ 
de es sich, das Programm ab 
Adresse <65000 abzulegen. In 
Adresse &5004 muß dann der 
Wert &1E, in <65005 der Wert 
&80 eingetragen werden. Na¬ 
türlich muß das Programm 
nach Änderung auch an die je¬ 
weilige Adresse geladen und 
von dort aus aufgerufen 
werden. 

Allgemein hieße das, daß in 
<6 5001/&5002 die Adresse des 
Original-Screenbeginns (Bild¬ 
schirmspeicher) stehen muß, 
und in &5004/&5005 die 
Startadresse des komprimier¬ 
ten Laders (inklusive Dekom- 
primierer), addiert mit dem 
Wert &/E, der die Differenz 
zwischen Datenbeginn und Be¬ 
ginn des Dekomprimierers an- 
gibt. 

Es ist übrigens besser, nach 
der Komprimierung 2 Byte 
mehr als angegeben mitabzu- 
speichern, da es sonst zu ei¬ 
nem Absturz beim Dekompri- 
mieren kommen kann, falls 
sich schon ein anderes Pro¬ 
gramm im Speicher befindet. 

Stephan Scholz 
Frankenberg 

Die Berichtigung zu der fal¬ 
schen PEEK-Abfrage können 
wir hiermit nur bestätigen, die 
Anweisung zum erweiterten 
Kompressor möchten wir Ih¬ 
nen zur freien Verfügung 
überlassen. 


Nochmal ’Plakatdruck’ 

Auf großes Interesse ist bei mir 
Ihr Programmlisting 'Plakat¬ 
druck ’ aus der Juni- Ausgabe 
dieses Jahres gestoßen. Es 
läßt sich wirklich hervorra¬ 
gend und vielseitig an wenden. 
Beim Ausdruck längerer Texte 
ergeben sich jedoch, bedingt 
durch die geringe Schriftbrei¬ 
te, oftmals Probleme beim Le¬ 
sen. Ich habe deshalb eine 
ebenso hilfreiche, wie einfa¬ 
che Änderung vorgenommen, 
mit deren Hilfe sich die 
Schriftbreite beliebig variie¬ 
ren läßt. 

Folgende Zeile wird im Pro¬ 
gramm hinzugejugt: 

45 INPUT “Schriftbreite: “, 
br 

Ferner werden die folgenden 
Zeilen geändert: 

90 FOR d=0 TO 7:FOR i = 

1 TO br.FOR q=OTO 7: ON 
SGN(PEEK (st-q) AND 
2T (7-d))+l GOSUB 
130,140 

100 PRINT # 8,lin$;:lin$ = 

“ “:NEXT qtPRINT # 8, 
CHR$(13):NEXT i,d 
Bei br—J erscheint die Schrift 
in der ursprünglichen Breite, 
bei br—2 in der doppelten, bei 
br=4 in der vierfachen usw. 
Diese Erweiterung läuft natür¬ 
lich in beiden Programm-Va¬ 
rianten. 

Jens-Thilo Schulze 
Braunschweig 

Auch hier möchten wir uns für 
den Tip bedanken und ihn an 
die Leser weitergeben. 

(Red.) 

Betr. Druckkopfdefekt 
beim NEC P2200 

Die im Leserbrief von Herrn 
Schrodt beschriebenen Pro¬ 
bleme hatte ich ebenfalls, al¬ 
lerdings nicht erst mit den tat¬ 
sächlich etwas gröberen Er¬ 
satzbändern, sondern bereits 
mit dem mitgelieferten Origi¬ 
nalband, und das schon wäh¬ 
rend der ersten Druckversu¬ 
che. Nach dem Austausch des 
Druckkopfes — vor zwei Mo¬ 
naten auf Garantie - blieb 
bisher auch keines der Ersatz¬ 
bänder (Carbotex) mehr hän¬ 
gen. Die Ursache für das Ein¬ 
haken der Nadeln ist somit 
wohl hauptsächlich bei diesen 
selbst zu suchen, wobei das 
Hängenbleiben evtl, durch das 


kaum gespannte, daher welli¬ 
ge (verursacht durch die 
Transportzahnräder) und 
recht faltige Farbband noch 
gefördert wird. 

Reinhold Schneider 
München 

In unserer Redaktion konnten 
wir diesen Fall noch nicht be¬ 
obachten, was jedoch nicht 
heißen muß, daß es sich bei 
dem Drucker von Herrn 
Schneider um einen Einzelfall 
handelt. Wir haben für Ihre 
eventuellen Probleme mit die¬ 
sem Drucker immer noch ein 
offenes Ohr, also schreiben 
Sie uns, falls Ihnen dieses be¬ 
kannt Vorkommen sollte. 


Tip zur 

Vortexerweiterung 

Haben Sie sich auch schon 
einmal darüber geärgert, daß 
nach dem Abschalten des 
BOS-ROMs mit \ DISBOS 
die mühsam von sämtlichen 
Disketten zusammengetragene 
RAM-Disk verloren ist ? Dann 
ist das nachfolgende Pro¬ 
gramm genau das richtige für 
Sie. Es schaltet das BOS-ROM 
wieder an, ohne die RAM-Disk 
zu löschen, benötigt nur 25 
Byte Speicherplatz und kann 
an jeder beliebigen Adresse 
(ab & 8000) abgespeichert 
werden. 

Die Funktionsweise des Pro¬ 
grammes: Bei einem RESET 
wird immer nur die BANK 0 
(Originalspeicher des CPCs) 
gelöscht. Die Speichererwei¬ 
terung bleibt davon unberührt. 
Benutzt man den Befehl 
DISBOS, so wird in BANK 
1 bei der Adresse <6 7D42 der 
Wert <655 eingetragen Wird 
der Rechner nun zurückge¬ 
setzt, so erkennt die Karte nun 
anhand dieser Speicherstelle, 
daß DISBOS schon benutzt 
wurde und die Initialisierung 
des BOS-ROMs unterbleibt. Je 
nachdem, wie 'standfest'diese 
Speicherste!le is: kann es dar¬ 
um nach dem Aus schalten bis 
zu einer Minute dauern, bis 
Sie mangels Re^e sh-Zyklen 
diesen Wen \e r i:en Um er¬ 
neut in den Genuß der Spei- 
cherenveitemr.-s zu kommen, 
brauch; man ai- nu r den Wert 
& 55 dünn einen anderen 
<&FF) ersetzen und einen RE- 
SF.T auslösen E ne Ein- 
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BRANDHEISSE KNULLERPREISE 


schränkung bleibt allerdings. 
Das Programm stellt nur eine 
Konfiguration her, wie sie 
nach jedem RESET entsteht, 
d. h., falls die Größe der RAM- 
Disk mit dem BOS- Befehl ver¬ 
ändert wurde, gehen diese Da¬ 
ten unweigerlich verloren. Die 
Startadresse darf auch nicht 
unter &8000 liegen, da sonst 
beim Wechseln der Bank das 
Programm ’weggemapped 
d. h., von der neuen Bank 
überlagert wird. 

Hier nun das Programm: 

1 

’ * :)c 4: jfc * 4: * * * * %s)c sje * * * * $ * $ 

*** 

2 ’* BOS. ON 
* 

3’*(c) 1988H. Hainthaler 
* 

4 

*** 

5 Start = &AOOO 

10 MEMORY Start - 1 
20 FOR adr=Start TO Start 
+ &18 . READ a$:POKE 
adr, VAL(“& “+a$):NEXT 
30 CALL Start 
40 DATA 3E,20,21,42,7D, 
F3,0J,BD 

50 DATA FB,ED, 79,D9, CB, 
E9,CB,BJ 

60 DATA ED,49,D9,36,FF, 
FB,C3,00 
70 DATA 00 

Hans Hainthaler jun. 

Beingarten 


Gemischte Bilder 

Das unten abgedruckte Pro¬ 
gramm “BILDER“ ist dazu ge¬ 
dacht, Bilder übereinander zu 
legen, ohne das untere zu zer¬ 
stören. Die Bilder sollten alle 
den gleichen Modus haben. 
Nach jedem Bild muß zur Fort¬ 
setzung eine Taste gedrückt 
werden (zum Wechseln der 
Disketten). 

Programm Bilder mischen: 
10 MEMORY 20000-1 
20 DIM N$(100) 

30 MODE 1 :INK 0,0. INK 
1,26:INPUT“Wieviele 
Bilder sollen gemischt 
werden “;b 

40 FOR i = l TO b: PRINT 
'Name “;i; INPUT 
~~.n$(i) 

50 NEXT 

60 INPVT“Mode : ",m 
70 INPUT“Save Name des 
fertigen Bildes “;sn$ 

80 MODE m 


90 LOAD n$(n),&COOO 
100 FOR n =2 TO b. CALL 
&BB18 

110 LOAD n$(n),20000 
120 z=&COOO 

130 FOR a=20000 TO 36384 
140IF PEEK(a) > 0 THEN 
POKE 

Z,PEEK(a) 

150 z=z+l 
160 NEXT 
170 NEXT 
180 CALL &BB18 
190 SAVE sn$,b; 

&COOO,16384 

Michael Rottländer 
Kaarst 


AMSTRAD auf dem 
Monitor... 

Mit Freude habe ich zur 
Kenntnis genommen, daß Sie 
sich in ’AMSTRAD Internatio¬ 
nal’ umgetauft haben. Ich 
habe, um das Umtaufen noch 
vollständiger zu machen, fol¬ 
genden Vorschlag für Sie. 

Der CPC 6128 meldet sich so¬ 
fort nach dem Einschalten mit 
“Schneider 128K... “. Diese 
Meldung kann man mit den 
einfachsten Mitteln und mit ei¬ 
nem Zeitaufwand von ca. 5 
Minuten in die AMSTRAD- 
Einschaltmeldung ändern. 
Dazu muß man lediglich sei¬ 
nen CPC 6128 aufschrauben 
und die Lötbrücke LK2 durch¬ 
trennen. Nach dem Zusam¬ 
menschrauben ist aus dem 
Schneider ein noch heute ak¬ 
tueller AMSTRAD geworden. 

Wolfgang Gebhardt 
Lingen 

Zu dem Thema möchten wir 
folgendes bemerken: Durch 
das Auftrennen der Lötbrücke 
wird der CPC weder schnel¬ 
ler, noch besser. Allerdings 
waren auch keine negativen 
Auswirkungen zu bemerken, 
bis auf die, daß bei einem 
neueren Gerät die Garantie er¬ 
losch. Also, wer es lieber so 
mag, bitte schön... 

CP/M-Schafter 
für den 664 

Der in Heft 2/88, Seite 61 be¬ 
schriebene Einbau eines 
CP/M-Schalters in den CPC 
6128 ist auch beim CPC 664 
zu realisieren. Die entspre¬ 
chende Brücke ist hier aller¬ 
dings nicht mit LK7, sondern 


mit LK 201 bezeichnet und be¬ 
findet sich an der Rückseite, 
direkt rechts neben dem mittle¬ 
ren Schraubensockel. Aller¬ 
dings ist bei geöffnetem Schal¬ 
ter (CP/M) die DATA MEDIA- 
Speichererweiterung nicht 
mehr ansprechbar. 

Helmut Swaczinna 
Oederquart 

Mit diesem Hinweis dürften 
auch die 664- Benutzer in der 
Lage sein, Ihr CP/M ohne 
Probleme in den Rechner zu 
bekommen, vielen Dank. 

Besseres Bild 

In der PC-AMSTRAD Interna¬ 
tional 7/88 las ich Ihren Arti¬ 
kel über die Verbesserung der 
Bildqualität beim PC- Monitor 
durch Verdrehen des V- 
Size-Potis im Monitor. 

Da ich leider keinen PC, son¬ 
dern ’nur’ einen CPC 664 mit 
GT65 habe, dachte ich mir, 
den Trick mit dem Poti auf 
dem GT65 auszuprobieren. 
Also machte ich mich ans 
Werk und schraubte den Moni¬ 
tor (nach entfernen des Netz¬ 
steckers versteht sich) auf, 
legte das Innenleben frei und 
siehe da, nach einer Minute 
fand ich die für die Bildquali¬ 
tät zuständigen Potis mit der 
Bezeichnung VR 702 und VR 
703. 

Nun zückte ich den Schrauben¬ 
zieher und verdrehte den VR 
702 bis zum Rechtsanschlag. 
Danach schraubte ich den Mo¬ 
nitor wieder zusammen und 
schaltete ihn ein. 

Das Ergebnis: Durch diese 
Maßnahme wird auch die 
Bildqualität des GT 65 in 
Mode 2 erheblich verbessert. 
Die Zeichen erscheinen als 
Ganzes, ohne diese lästigen 
Zwischenräume. 

Da mir leider kein Farbmoni¬ 
tor zur Verfügung steht, kann 
ich nicht sagen, wie sich der 
Eingriff auf diesen auswirkt. 
Ich kann mir allerdings gut 
vorsteilen, daß es auch dort 
nicht schaden kann. 

Zum Abschluß noch ein kleiner 
Trick: 

Um die Bildröhre zu schonen, 
die durch diesen Eingriff nicht 
gerade Freudensprünge 
macht, stelle auch ich den 
Kontrast und die Helligkeit 
nur auf das Nötigste und be- 


1 Schneider 

AT 2640 mil Monochrommonilor MM 2640 

3999,- 

mit EGA-Monllor EM 2640 

4799,- 

Laufwerk extern 5,26" lür AT 2640 

449,- 

Target PC 

4799,- 

Schneider Telefax SPF 100 

2399,- 

20MB-Feslplette|Seagaie) * Controller 

20 MB-Filecard Silicon Valley (einbau- und 

589,- 

anschluBterliglürPC 1612 und 1640) 

699,- 

20 MB-Filecard (Seagale. 40 ms) 

769,- 

30 MB-Filecard (Seagale. 40 ms) 

849,- 

40 MB-Festplalle Seagate ST 251 

799.- 

Amslrad 

CPC 6128 mil Grünmonilor 

769.- 

mil Farbmonitor 

1049, 

PC 1640 mH 1 CW 2 LW 

HD 20 

Monochrom 1549.- 1799,- 

2349,- 

Color 1899,- 2149,- 

2699,- 

EGA 2449.- 2699.- 

3249,- 

Atari 

1040 STF mit Monochrommonitor 124 

1449.- 

1040 STF mit Farbmonilor SC 1224 

1799.- 

Mega ST 2 - SM 124 4 Festplatte 20 MB 

3599,- 

Mega ST 4 + SM 124 + Festplatte 20 MB 

4599,- 

1 Superknüller: 

Siemens BTX-SystemT 3315 + 15“ Farbmonitor 999.- 

Drucker 2030 {baugleich NB 24-10) * voll EZB 

Epsondrucker (dt Version) 

AnschluBfenlg an AMIGA. Schneider PC oder 
CPC, Atari ST oder IBM-Kompatible 

1289.- 

LX 800 

599,- 

FX 850 

1169- 

IQ 500 

899- 

LQ 2550 

3149- 

LQ 050 

1499- 

LQ 1050 

1899,- 

EX 800 

1399,- 

SO 2500 

3249.- 

Einzelblaileinzug LX 800 / LQ 500 

199.- 

Epson PCe Main Unit r 1 Laufwerk 

1369,- 

Stardrucker (dl. \ter*lon) 

LC-10 mil Commodora od Centronicsim 

599,- 

LC-10 Color Farodnjcker mit Interface 

749.- 

NEC-Drucker (dl Version) 

NEC OrucXer P 2200 

899,- 

NEC Drucker P 6 Rus 

1499,- 

Commodore 

Commodore PC 1 

749,- 

AMIGA 500 + Farbmonitor 1004 

1589,- 

Amlga 2000 4- Farbmonilor 1054 

2579- 

PC/XT-Karle A 2000 mil 5,25"-Laufwerk 

849,- 

Vo'Gand»coslonpajschale {Warenwert bis DM 1000,- 

/oarüber) 

Vorauskasse (DM B.-/20.-), Nachnahme (DM 11,20/23.20). 
Ausland (DM 13,-730.— ) 

1 Lieferung nur gegen NN oder Vorauskasae; Ausland 
1 ajs*39se 

nur Vbf- 

Preisliste (Compuledyp angeben) gegen Zusendung eines 

Fi »Umschlags 

CSV Riegert 

Schloßhotatr. 5, 7324 Rechberghausen, 
Tel. (0 71 61) 5 28 89 


PROFISOFTWARE 
für PC-JOYCE-CPC 


Für CPC 464-664-6128: 

FAKTURA-CPC 79- DM 

Angeöoi. Lielerscnem, Rechnung, 

TexIMan Textveraröeitung 69,- DM 

Small C (C Compiler) 89,- DM 

SPORTTABEUEN 49.- DM 

V&reinsverwallung 148,- DM 

MiniAktien, 30 M m Grafik 49,- DM 

Badtinanzierung 189.- DM 

Für JOYCE PCW und CPC 612B: 
Wordstar 30 179,- DM 

FiranzDuchhaltung 198 - DM 

Auttragsbearbeitung 248,- DM 

Multiolan(MICROSOFT) 179- DM 

Baüfinanzierung II 279,-DM 

Immobilienveirmlllung 390,- DM 

Für JOYCE PCW: 

dBASE II 189,- DM 

ADRESSCONTflOL 79.- DM 

Serienbrlele mit LocoScrlpt-Textverarbeilung, 
FAKTURA-STANOARD V.3.0 94,- OM 

RechnunglGutschr/UeferscheinfAuHragsbesUAngebot. 
Datei für 600 Kunden kompatibel zu ADRESS-C0N- 
TR0L 

RaPaft.'MviStJ Wahru n g Ira wählba r und gespeichen 
Kopf, Fuß-, Werbetexte, DEMODISK 30,- DM 

FAKTURA-CONTROL II 169,- DM 

Abbuchen aus Artikeldatei Mindestbesland. Perman 
Inventur, Autom Buchen in Ottene-Ebsten Buchhaltung, 
Mahnpr, 600 Kunden. 600 Artikel, 1000 flechn 

SPORT-TABELLEN 65.- OM 

Vereinsverwaltung 148,- DM 

Für IBM PC/XT/AT und Kompatible: 
HD-MENÜ 34,- 0M 

Festplattenverwaltung für MS-DOS mit 
Pulldown-Menügenerator. 

ZUBEHÖR 

Farbband für Joyce-Drucker 18- OM 

3-Marken-Disketten 6,90 DM 

Staubschutzhauben aus Kunstleder: 

-lur Monitor GT 65 19,-DM 

- ICr Keyboard 464/664(6128 15,- OM 

- Bitte bei Bestellung Gerätetyp angeben - 

Preisgünstige PC-Sott- und Hardware 
- Katalog kostenlos - 

Vters per NN zzgl DM 5,- (Ausland 10,-) Porto/Verp 
oder im Fachhandel 


Hashsgen - EDU 

Eckslr. 11. 6113 Babenhausen 3 
Tel.: 060 73/619 93 
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CPC 4M (Keyboard + Grünmonitor) 399,— 

CPC 4M (Keyboard + Farbmonitor) 699.- 

CPC 6128 (Keyboard + Grünmonitor) 799,— 

C?C 6128 (Keyboard + Farbmonitor) 1.099,- 

MP-2 (Netzteil + HF Modulalor 99,- 

001-1 (3' Floppy lür CPC464) 499- 

F01 (3-2 Floppy lür 6128) 499,- 

DMP 2160 (Drucker inci Druckerkabel 499,- 

Drjckertabel tur 464 - 6128 499. 

ScartanschluBkabel (464 + 6128 an TV) 28.- 

Verlängerung 464 (Monitor - Keyboard) 20,— 

Verlängerung 6128 (Monitor - Keyboard) 25,— 

Joystick lür 464 + 6128 26,- 

Adapter für 2 Joystick (alle CPC's) 

3‘ Markendisketten 10er Pack 
Joyce PCW 8256 999.- 

Joyce PCW 8512 1,299, 

Markendisketten 3" 2DD 19- 

PCW 9512 Textsystem 1.699- 

PPC 512 Portable mit 1 Laufwerk 1.699- 

PPC 512 Portable mit 2 Laufwerken 1.999 — 

PC 1512 1 Laufwerk Mcnochrom 1299,- 

FC 1512 2 Laufwerke, Monocnrom 1599.- 

PC 1512 1 Laufwerk, Color 1.699,- 

PC 1512 2 Laufwerte. Cotor 1999,- 

PC 16401 Laufwerk. Monochrom 16S9, 

PC 1M0 2 Laufwerke, Monochrom 1999,- 

PC 1M01 Laufwerk, 20 MB HD, Mono 2 499.- 
PC 1M0 1 Laufwerk, EGA 2599,- 

PC 1M0 2 Laufwerke, EGA 2999- 

PC ‘MO 1 Laufwerk 20 MB HD, EGA 3599.- 
20 MB BusinessCard 645- 

Game Port für PC (1512 + 1640) 

Clock/Kalender Card 

Serielle Card 69. 

Prinler-Caro 

Nashua 5.25" 2D Diskelten 10er Pack 2Ü 

Joystick lür Game Perl 35 - 

OMP 3160 (mcl Druckerkabel) 599 - 

Farboand DMP 3160 2er Pack 31.- 

DMP 4000 (inci Drucke r kabSI 899 - 

LQ 3500 (24 Nadeln, inci Kabel) B99 - 

Farbband LO 3500 

LQ 5000 (24 Nadeln, inci Kabel) 1399.- 


Spieie, Bücher, Farbbänder, Sott und Hardware aul Anfrage, 
iniormaliorsmalerial nur gegen F-eiu.mschiag und ausrei 
cflend Irankien 

Lieferung per Nachnahme oder Mxauslasse. Alle Preise ind 
Mws! Ab 100,- OM Beste-’wert Nachrahme, °ci1o und Ver 
Packung frei Angebote Sind freibleibend 



Holländische Sir 121,3502 Vellmar, Tel: (0561) B28160 


BAUFINANZIERUNG 
für JOYCE 

- neues Steuerrecht für 
selbstgenutzt, vermietet, 
Neubau, Altbau, Reno¬ 
vierung 

- Steuertabelle 1988 

- bis zu 6 Finanzierungs¬ 
bausteine mit freier Auf¬ 
teilung der Hypotheken, 
auch für zwischenfinan¬ 
zierte und anzusparen¬ 
de Bausparverträge so¬ 
wie Lebensversiche¬ 
rungen 

- Laufzeitrechnung 

- Abspeichern von Finan¬ 
zierungen 

- Menuegesteuerte Bild¬ 
schirmführung 

- ausführliche Anleitung 
und Erfassungsbogen 
für die Daten 

Preis: DM 199,- 
per Scheck 

Information anfordern 

KELLERSOFT 

Postfach, 7129 IIsfeld 


nutze das Programm ’ TIME¬ 
OUT ', welches in Sonderheft 5 
ab gedruckt war. So wird ein 
Einbrennen von Zeichen auf 
der Röhre verhindert. 

Frank Bader 
Gelsenkirchen 

Wir beglückwünschen Herrn 
Bader zu seinem neuen Bild, 
möchten aber gleichzeitig wie¬ 
der daraufhinweisen, daß die¬ 
se Einstellung nur Fachleute 
vornehmen sollten, da auch in¬ 
nerhalb der kleinen Monitore 
noch nach dem Ausschalten 
eine Spannung von mehreren 
lOOOO Volt anliegen kann. 
Wir wissen ebenfalls nicht, ob 
es bei den CPC-Monitoren zu 
Spätfolgen kommen kann, 
nehmen jedoch an, daß der 
von Herrn Bader genannte Tip 
dies verhindert. 

(Red.) 


Tip zu ’TIPPTOP’ 

(PC 7/88) 

"Eine Stoppuhr, mit der die 
notwendige Zeit für jede Lek¬ 
tion gestoppt werden kann, 
sollte zur Hand sein. “ So 
schreibt der Autor des Pro¬ 
grammes. 

Aber mit ein paar Änderungen 
an dem Programm kann der 
PCW (JOYCE) selbst die Zeit 
und die Tasten pro Minute be¬ 
rechnen, wie Sie an meiner 
nachfolgenden Änderung se¬ 
hen können: 

90 GOSUB 5000 
1835 IE characters = 1 THEN 
GOSUB 5100 
2075 GOSUB 5200 
2080proceed$ = ‘‘Ihre 
Fehlerquote und 
Geschwindigkeit sind 
gut: nächste Lektion!“ 
2085 repeatl$— “Wiederhole 
die Lektion bis die 
Geschwindigkeit auf 120 
T/Mn liegt “ 

2090 repeat2$= “Wiederhole 
die Lektion bis die 
Fehlerquote auf 2 % 
sinkt. “ 

2095 repeat3$ = “Wiederhole 
die Lektion bis Ge¬ 
schwindigkeit und Feh¬ 
lerquote besser sind“ 
2110 percent. accuracy$= 
“Accuracy: “+STR$ 
(percent.accuracy) +“% 
T/Mn: “ + STR$ (Tpm) 


2130IF percent. accuracy > 
=98ANDtpm>119 
THEN PRINT FN 
screen$(l 3,25,proceed$) 
2135 IF percent. accuracy > 

= 98 AND tpm <120 
THEN PRINT FN 
screen$(l 7,25,repeatl$) 

2140 IF percent. accuracy < 98 
AND tpm> 119 THEN 
PRINT FNscreen$(l 7,25, 
repeat2$) 

2145 IF percent. accuracy < 98 
AND tpm <120 THEN 
PRINT 

FNscreen$(l 7,25,repeat- 
3$) 

4990 ’ 

5000 mn=-1033 
5010 sek=-1032 
5020 RETURN 
5090 ' 

5100 POKE mn,0 
5110 POKE sek,0 
5120 RETURN 
5190 ' 

5200 e.mn$=HEX$ 
(PEEK(mn)) 

5210 e.sek$=HEX$ 
(PEEK(sek)) 

5220 e. mn = VAL(e. mn$) + VA- 
L(e.sek$)/60 

5230 tpm=INT((characters-er- 
rors)/e.mn) 

5240 RETURN 

Willem den Brok 
ZE Oss 
Nederland 


Vielen Dank für diesen Hin¬ 
weis. 


(Red.) 


43 Spuren von Haus aus 

Die Betriebssysteme Loco- 
Script und CP/M lassen sich 
zwar, wie in Sonderheft 3 be¬ 
schrieben, mit FORM43.COM 
oder SID. COM problemlos 
dazu bringen, 43 Spuren zu 
beschreiben. Für mich als Be¬ 
sitzer eines JOYCE mit selbst 
nachgerüstetem FD-2-Lauf- 
werk (“B: “) hatten die ent¬ 
sprechenden Patches aber die 
unangenehme Folge, daß das 
B-Laufwerk nun nicht mehr 
dazu gebracht werden konnte, 
die 80-spurigen 720-kB-Dis- 
ketten zu akzeptieren. Im Lauf¬ 
werk B waren, nach Änderung 
der Betriebssysteme, nur noch 
die 40-spurigen Standard¬ 
disketten verwendbar; sie 
konnten natürlich auch nur 
noch gelesen werden. 


Die Ursache für dieses un¬ 
freundliche Verhalten von JO¬ 
YCE liegt wohl darin, daß die 
in Sonderheft 3 vorgestellte 
Methode im Betriebssystem 
den CALL-Befehl löscht, der 
die Format-Information von 
der Diskette holt. Derselbe 
Befehl ist offenbar auch für 
Drive B zuständig. Wenn er 
gelöscht ist und die anderen in 
dem Artikel angegebenen 
Adressen geändert sind, geht 
JOYCE davon aus, daß für B 
dieselben Laufwerksdaten gel¬ 
ten wie für A — was angesichts 
der anderen “Schreibweise “ 
des Laufwerks B dazu führen 
muß, daß eine 80-spurige Dis¬ 
kette als falsch zurückgewie¬ 
sen wird. Jeder Versuch, die 
richtigen Daten für B nach der 
Methode des Sonderheft-Arti¬ 
kels ins Betriebssystem zu pat- 
chen, blieb erfolglos (aller¬ 
dings bin ich kein Maschinen¬ 
sprachespezialist). Also keine 
187 kB auf A für sprachlich 
nicht besonders erfahrene JO- 
YCE-Plus-Eigner ? 

Doch, es geht, und zwar ohne 
Änderung der Betriebssyste¬ 
me. Allerdings muß auf jeder 
einzelnen Diskette, die bis zur 
43. Spur beschrieben werden 
soll, ein kleiner Eingriff in der 
Systemspur 0 vorgenommen 
werden. Neben einem Pro¬ 
gramm, das die Spuren 40-42 
formatiert, wird dazu noch ein 
Programm benötigt, das in der 
Lage ist, auch die Systemspu¬ 
ren der Disketten zu beschrei¬ 
ben. Ich habe zwei Wege aus¬ 
probiert: 

1. DU:COM aus der Public 
Domain dürfte allgemein ver¬ 
breitet sein und ist leicht zu 
handhaben. So ist zu ver¬ 
fahren: 

1.1 Die zu "erweiternde “ Dis¬ 
kette kommt ins Lauftverk A 
und wird (z. B. mit XFOR- 
MAT.COM) auf 43 Spuren 
formatiert. Die Disk darf 
durchaus schon beschrieben 
sein; XFORMAT tastet ja in 
der Option Nr. 7 die Spuren 
0-39 nicht an. 

1.2 DU.COM laden; Disk in 
Lauftverk A anmelden; Track 
0, Sektor 1 einiesen (der 

ist das Prompt von DU. COM): 

A> DU.COM >RETURN< 
:LA > RETURN < 

:T0;S1 > RETURN < 

T=0, S=l, PS=0 >RE- 
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TURN< 

:H > RETURN< 

Auf dem Bildschirm stehen 
nun folgende Angaben: 

00 00002809 02010302 

2A520000 00000004 
10 31F0FF3E FF32D0F8 
CDB4F021 0000E511 
Byte-Nummer 2 in der ober¬ 
sten Zeile (die Zählung be¬ 
ginnt mit Byte Nr. 0!) enthält 
die Anzahl der Spuren auf der 
Diskette, also 28 hex = 40 
dez. Dieser Wert muß in 2B 
hex = 43 dez geändert 
werden: 

:CH02,2B >RETURN<28 
Jetzt nicht vergessen, die ge¬ 
änderten Angaben wieder auf 
die Diskette zurückzu¬ 
schreiben: 

:W >RETURN< 

Danach kann DU.COM ver¬ 
lassen werden, sofern nicht 
weitere Disketten angepaßt 
werden sollen. Die Disk in 
Laufwerk A ist jetzt unter 
CP/M und Loco Script glei¬ 
chermaßen voll nutzbar. 
Achtung: die Systemspur der 
Startdisk mit dem jeweiligen 
Betriebssystem darf nicht auf 
die beschriebene Weise ge- 
patcht werden, sonst weist JO¬ 
YCE die Disk schon beim Boo¬ 
ten unter Piepsen zurück. 

2. Es gibt auch noch eine et¬ 
was komfortablere Möglich¬ 
keit, die Systemspuren der 
Disketten mit der neuen For¬ 
matinformation zu versorgen, 
nämlich durch einen Patch in 
DISCKIT. COM. Allerdings 
sollte dieser Weg nur bei noch 
unbeschriebenen Disks ge¬ 
wählt werden, da DISCKIT ja 
die Diskette neu formatiert 
und damit alle Daten auf ihr 
löscht. 


Zweckmäßigerweise sollte zu 
diesem Zweck eine Zweitver¬ 
sion von DISCKIT erstellt 
werden (z. B. DISCKIT2. COM), 
da mit dem gepatchten 
DISCKIT behandelte Startdis¬ 
ketten ja nicht mehr laufen 
würden (s. Abschnitt 1, letzter 
Absatz). 

Für die Formatinformation ist 
in DISCKIT die Adresse 1AC2 
zuständig. Das dort stehende 
28 hex muß nur, z. B. mit dem 
SID-Befehl S ’, in 2B hex geän¬ 
dert werden. 

Leider können die Spuren 40 
bis 42 nach wie vor nicht mit 
DISCKIT formatiert werden; 
alle Versuche dazu sind mir 
danebengegangen. 

Am Rande bemerkt: in 
DISCKIT. COM gibt die 
Adresse 017D an, bis zu wel¬ 
cher Spur die Diskette zu prü¬ 
fen ist. Steht dort 2B hex, zählt 
die Prüffunktion von DISCKIT 
brav von 0 bis 42 hoch. 

Ob durch das im Juni-Heft der 
PC International vorgestellte 
Programm XXFORMATetwas 
an meinen Vorschlägen zu än¬ 
dern wäre, kann ich nicht 
beurteilen. 

Karl-Heinz Paßler 
Esslingen a. N. 

Problem bei Ausdruck 
von LocoScript-Texten 
auf Olympia Carrera 

Nach einigem Bemühen ist es 
mir gelungen, meine Olympia 
Carrera-Typenrad-Schreib- 
maschine an den JOYCE 
PCW 8512 anzuschließen. 
Jetzt würde ich gerne meine 
LocoScript-Texte nach der 
Umwandlung in ASCII mit 
Bildschirmformat aus- 


drucken. Dies geht zwar, aber 
leider werden die Umlaute 
inkl. “ß “ nicht korrekt wieder¬ 
gegeben, obwohl ich das In¬ 
terface an der Olympia Carre¬ 
ra auf meine Tastatur “766“ 
und auf “Schneider“-Code It. 
Bedienungsanweisung einge¬ 
stellt habe. Liegt das an dem 
ASCH- Umwandlungspro¬ 
gramm? 

Unter CP/M und unter BASIC 
werden jedoch in ASCII er¬ 
stellte Dateien korrekt ausge¬ 
druckt. Im Handbuch für den 
JOYCE wird gesagt, daß evtl, 
ein kleines Umwandlungspro¬ 
gramm verwendet werden 
muß. Doch wie sieht das ge¬ 
nau aus? Gibt es das evtl, auf 
Diskette ? 

Zur Zeit muß ich sehr um¬ 
ständlich vorgehen: 

1. Ich erstelle mit LocoScript 
den Text. 

2. Dieser Text wird kopiert. 

3. Auf der Kopie werden mit¬ 
tels der Ersetze-Funktion die 
Umlaute und “ß“ in andere 
Zeichen umgewandelt. 

4. Von der so bearbeiteten Ko¬ 
pie wird eine ASCIl-Datei er¬ 
stellt. 

5. Die ASCIl-Datei kann aus¬ 
gedruckt werden. 

Die Umlaute + ß werden fol¬ 
gendermaßen umgewandelt: 
ä = shift+alt+ä; 

Ä — alt+ä; 
ö = extra + ö; 

Ö = extra + (Pfeil); 
ü = shift+alt+ü; 

Ü = alt + 0; 
ß = extra+ 9 oder 
ß = shift+alt+j 

Oder gibt es vielleicht inzwi¬ 
schen eine Möglichkeit, die 


LocoScript-Texte direkt über 
die Carrera auszudrucken ? 

Rüdiger Perschke 
Bamberg 

In der Tat gibt es (seit Heft 
1/88) eine Möglichkeit, Loco- 
Script-Texte direkt von Dis¬ 
kette über die CPS 8256- 
Schnittstelle an beliebige 
Drucker mit serieller oder pa¬ 
ralleler Schnittstelle auszuge¬ 
ben. In diesem Heft wurde das 
Programm LOCOCON vor¬ 
gestellt, welches unter CP/M 
arbeitet und die Verarbeitung 
von LocoScript l.xx-Texten 
ohne vorherige Umwandlung 
erlaubt. Ein umfangreiches 
Untermenü erlaubt die Anpas¬ 
sung der Steuersequenzen be¬ 
liebiger Drucker. LOCOCON 
wurde inzwischen mit einigen 
Verbesserungen (und einer 
speziellen Anpassung für den 
Typenraddrucker SD 15) ver¬ 
sehen. Sie finden LOCOCON 
auf der JOYCE Databox 1/88; 
im nächsten Heft gibt es übri¬ 
gens 'Neues von LOCO¬ 
CON’, wo einige Verbesse¬ 
rungen vorgestellt werden. 

(Red.) 


MALLARD-BASIC-Kurs, 
Heft 7/88 

Hier hat sich ein Fehler ein¬ 
geschlichen: Auf Seite 87 in 
der linken Spalte wurden zwei 
Zeilen zusammengedruckt: 
Programmzeile 13 muß nach 
'GOTO 10’ getrennt werden; 
danach fängt Zeile 75 an. Wir 
danken unserem Leser Ekke¬ 
hard Schmidt für den freundli¬ 
chen Hinweis. 

(Red.) 


AUTORISIERTER FACHHÄNDLER DER MARKEN 


.Schneider VICT©R 
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Wir führen alle Artikel der oben genannten Hersteller! Rufen Sie uns an! Fragen 
Sie nach unserem Preis! Wir liefern sofort ab Lager! Schneilieferung per UPS! 

AMSTRAD 

PPC 512 

Schneider 

EURO PC 

Victor 

Vicky 

AMSTRAD 

CPC 464 

Schneider TOWER PC 

Victor 

VPC II 

AMSTRAD 

CPC 6128 

Schneider 

EGAAT 

Victor 

V 286 C 

AMSTRAD PCW 0256 

Schneider 

LQ 3500 

STAR 

LC 10 

AMSTRAD 

PCW 9512 

Floppy 

DD11 

STAR 

LC 10 CL 

AMSTRAD 

DMP 2160 

Floppy 

FD 1 

STAR 

NX 15 
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Fragen Sie 

nach unserem aktuellen Preis! 



Unikat COMPUTERVERTRIEB 

POSTFACH 15 53 • D - 3040 SOLTAU 

TEL. (0 51 91) 1 32 44 - TAG UND NACHT 


Wer Ordnung hält, ist nur zu faul zum Suchen ... 
... oder hat unsere Top-Programme: 


COMAC-LITBOX PLUS — das freundliche Karteikartenprogramm: 

* speichern, sortieren, suchen, drucken etc. von Daten aller Art (Literatur, 
Schallplatten, Adressen, Filme, Inventar, Dias u.v.a.m.) 

* Vergessen Sie alles, was Sie je über Probleme mit Datenbankprogram¬ 
men für den JOYCE gehört haben! — 

* Schneider Magazin 1/88: "COMAC-LITBOX ... zur Anlage eines Literatur¬ 

verzeichnisses optimal geeignet". 

* PC INTERNATIONAL 4/88: "Wer ... eine Datenverwaltung aufbauen will, 

findet in LITBOX einen optimalen Helfer”. 

DM 128-— 

COMAC-KASSE PLUS — "ein gelungenes Programm zur Einnahmen - Über 
Schußrechnung" (PC INTERNATIONAL 7/87) 

DM 168.— 

COMAC-BÜRO — damit Sie in Ihrem Büro den Überblick behalten. 

DM 348.— 

Außerdem sehr zu empfehlen: LocoScript 2.16 auf Deutsch (Preis auf Anfrage) 
Kostenlose, ausführliche Prospekte bei: CMZ-Verlag Wlnrlch C.-W. Clasen 
Borgswiese 9-11, 4650 Gelsenkirchen 2, Tel.: 0209 - 777896 (0-24 Uhr) 
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I—Aktuell 


Komplettangebot 



Die Firma AM- 
STRAD bietet für 
alle, die sich einen 
Computer zulegen 
wollen, ein Komplett¬ 
angebot an, das einen 
vollwertigen Compu¬ 
ter-Arbeitsplatz um¬ 
faßt. Zu diesem Kom¬ 
plettangebot gehören 
ein CPC 464 mit Joy¬ 
stick, ein Farbmonitor 
CTM 644, ein Fern- 
sehtuner zum Emp¬ 
fang von Fernsehsen¬ 
dern, die auf dem Mo¬ 
nitor gezeigt werden 
können, ein digitaler 
Radiowecker, 10 der 
beliebtesten Spiele, 
sowie ein Computer¬ 
tisch, um die Geräte 
sicher aufstellen zu 
können. Dieses kom¬ 
plette Set kostet dabei 
nur DM 999,— und 
dürfte gerade den Einsteigern in 
die Computerwelt den Anfang 
erleichtern. 

Info: AMSTRAD GmbH 


Robert-Koch-Str.5 
D-6078 Neu-Isenburg 
Tel.: 06102/300220 


Holographiewochen in Stuttgart und Fellbach 


Für Freunde der dreidimensio¬ 
nalen Bilddarstellung finden 
vom 20. Oktober bis zum 13. 
November die Stuttgarter und 
Fellbacher Holographiewochen 
statt. Holographien sind als In¬ 
formationen auf einer flachen 
Glasplatte oder einem Film ge¬ 
speicherte Bilder, die mittels ei¬ 
nes Lasers dreidimensional dar¬ 
gestellt werden können. 

Die Ausstellung in Stuttgart 
stellt eine umfangreiche Be¬ 
standsaufnahme der Hologra¬ 
phie und ihrer Geschichte seit 
der Entdeckung des Physikers 
Dennis Gabor dar. 


Neben der Geschichte werden 
auch Anwendungen in der 
Kunst, der Werbung und der 
Einsatz von Holographien in 
Skulpturen gezeigt. Ebenfalls 
werden Anwendungen aus Wis¬ 
senschaft und Forschung vorge¬ 
stellt. Ein Teil der Holographie¬ 
wochen findet im gleichen Zeit¬ 
raum wie die Stuttgarter ’Hobby 
+ Elektronik 88’ statt, der gro¬ 
ßen Hobbymesse. Diese Messe 
beginnt am 10. November und 
endet am 13. November. 

Info: Messe Stuttgart 
Postfach 990 
D-7000 Stuttgart 1 


Weeske vertreibt Star-Division-Programme 


COMAC-Litbox Plus 


Eine neue Version des Kartei- 
karten-Prograrnmes COMAC- 
Litbox 3.1 gibt es vom CMZ- 
Verlag Winrich C.-W. Clasen. 
Die neue Version enthält eine 
ganze Reihe Verbesserungen 
und Erweiterungen: 

— Die Karteikarten einer Kartei 
können vollständig oder teil¬ 
weise in andere Karteien 
übernommen werden, dabei 
kann die Zielkartei eine an¬ 
dere Struktur und einen an¬ 
deren Umfang haben als die 
Quelldatei. 

— Karteien können nachträg¬ 
lich noch erweitert werden. 

— Sonderfunktionen zur auto¬ 
matischen Katalogisierung 
und zur fortlaufenden Verse¬ 
ilung mit Nummern sind ent¬ 
halten. 

— Karteizugriffe und -änderun- 
gen werden automatisch mit 
Zeitstempeln versehen. 

— Durchsuchen, durchblättern, 
und ausdrucken einer Kartei 


ist ab jeder beliebigen Kar¬ 
teikarte möglich. 

— Ausdruck von Karteikarten 
wahlweise in Listen- oder 
Tabellenform, sofern die 
Kartengröße es zuläßt. 

— Sortierung der Karten einer 
Kartei nach zwei Rubriken 
gleichzeitig. 

COMAC-Litbox Plus ist zum 
Preis von DM 128,— (zzgl. Ver¬ 
sandkosten) beim CMZ-Verlag 
erhältlich, COMAC-Litbox 3.1 
zum Preis von DM 98, -, beiden 
Versionen wird ein umfangrei¬ 
ches Handbuch mitgeliefert. 
Die Besitzer der älteren Version 
können COMAC-Litbox Plus 
als Update für DM 38,- (zzgl. 
Versandkosten) gegen Einsen¬ 
dung der Originaldiskette er¬ 
werben. 

Info: CMZ-Verlag 

Winrich C.-W. Clasen 
Borgswiese 9-11 
D-4650 Gelsenkirchen 2 



Zwei Neuheiten bietet die Firma 
Werder in Hamburg für PCW- 
(Joyce-)Benutzer an. Zum einen 
handelt es sich um eine Trageta¬ 
sche für diese Computer, die es 
dem Anwender erlaubt, seinen 
PCW auch auf Reisen geschützt 


mitzunehmen. Diese Tasche ist 
für die Baureihe 8256 und 8512 
gedacht und kostet DM 98,-. 
Der Bildschirmfilter ist dagegen 
an allen PCW-Monitoren ein- 
setzbar und kostet DM 59, -. 


Patentaustausch AMSTRAD - IBM 


Die Firma Weeske in Backnang 
hat ab sofort die Exklusivrechte 
für folgende Star-Division-Pro¬ 
gramme übernommen: 

Für die CPC’s: Star-Writer I 
(DM 98,-), Datei-Star (DM 
98,-), für die PCW’s: Statistik- 
Star (DM 98,-), Star-Mail 
(LocoScripl-Erweiterung, 

DM 98,-), Datei-Star (Datei- 
verwaltungs-System. DM 98,—), 
Star-Base (Datenbank-System, 


DM 198,—). Star-Mail und Da¬ 
tei-Star sind auch als ’Mailing 
SystenfProgramm-Pakel zu ei¬ 
nem Preis von DM 189,— zu er¬ 
halten. 

Info: Weeske Computer Elek¬ 
tronik 

Potsdamer Ring 10 
D-7150 Backnang 
Tel. : 07191 / 1528-29 
oder 6 00 76 


AMSTRAD plc hat mit dem 
IBM-Konzern ein Patentaus¬ 
tauschabkommen unterzeich¬ 
net. Dieses Abkommen garan¬ 
tiert AMSTRAD die weltweite 
Nutzung aller IBM-Patente für 
die Herstellung und den Verkauf 


von Computer-Produkten, ein¬ 
schließlich IBM-PC’s und IBM- 
PC System 2, während IBM 
weltweit nichtausschließliche 
Rechte an allen AMSTRAD plc 
Patenten gewährt ward. 
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5 1/4“-Laufwerk für die CPC’s 



Ein Laufwerk für die CPC's na¬ 
mens ’Stardrive’ im 5 1/4“- 
Format bietet die Firma G + L 
electronic in Hefersweiler an. 
Das Gerät ist ein Commodore- 
Amiga-Laufwerk, welches für 
den amerikanischen Markt ge¬ 
dacht war, dessen Stromnetz 
eine Spannung von 110 Volt hat. 
Im Laufwerk wurde ein neues 
Netzteil integriert, die Firma 
G-fL hat dazu einen neuen 
Transformator eingebaut dessen 
Werte für das deutsche Netz gel¬ 


ten. Von der Diskette können 
beide Seiten mittels eines Um¬ 
schalters auf je 40 Spuren mit 
360 kB formatiert werden. Im 
Lieferumfang sind die zugehöri¬ 
gen Kabel und eine Bedienungs¬ 
anleitung enthalten. 

Der Preis beträgt bis zum 

31.8.1988 DM 279.-. ab dem 

1.9.1988 DM 298,-. 

Info: G+L electronic 
Computerhardware 
Seelencrstr.4 
D-6759 Hefersweiler 



Für Freunde der Computer- 
Kunst gibt die Hubbert-Indu- 
s-.rie-Werbung einen Jahreska¬ 
lender 1989 mit Computergrafi¬ 
ken heraus Der Kalender ent¬ 
halt 1- Blatt mit den unter¬ 
schiedlichsten Motiven im 
Format 440 mal 550 mm. Zu¬ 
sätzlich ist eine Kopfleiste ent¬ 


halten, in der ein Firmenein¬ 
druck stehen kann. Der Preis 
des Kalenders beträgt DM 
42,-. 

Info: Hubbert Industrie 
Werbung 

Schwalbenthaler Sir. 14 
D-3447 Meißner 3 


Navigations-Trainingsprogramm 


’NAVMASTER’ heißt ein Navi¬ 
gations-Übungsprogramm für 
den AMSTRAD PCW (Joyce) 
und den CPC 6128. das sich mit 
der nautischen Navigation aus¬ 
einandersetzt. Das Programm 
ist ebenfalls für IBM-PC’s und 
kompatible Rechner zu erhal¬ 
ten, hier wird die CGA-Karte 
mit 640*200 Bildschirmpunk¬ 
ten, die EGA-Karte mit 16 Far¬ 
ben und einer Auflösung von 
640*350, sowie die Hercules 


Monochromkarte mit 720*348 
Punkten unterstützt. 
’NAVMASTER’ ist ein interak¬ 
tives Trainingsprogramm in 
englischer Sprache, das sich für 
Amateur-Navigatoren, sowie 

für Schüler, die Ihre Physik¬ 
kenntnisse erweitern wollen, 
eignet. 

Info: Wassersport-Fachgeschäft 
Seestraße 10 
D-8959 Dietringen 
Tel.: 0 8367/471 



Haupttheaei 


Dealt 


DOS-Lehrer - Hilfe zu MS-DOS 


Für PC-Neulinge und diejeni¬ 
gen, die sich mehr mit ihrem PC 
beschäftigen wollen, bietet die 
Firma Lifetree Software in Ger¬ 
mering ab sofort den ’DOS-Leh- 
rer’ an. Das Programm führt 
den PC-Besitzer in die Welt des 
Betriebssystems MS-DOS ein, 
ist dabei völlig in deutsch gehal¬ 
ten, so daß alle Erklärungen 
leicht zu verstehen sind. 

Der ’DOS-Lehrer' zeigt dabei 
alle Möglichkeiten von MS- 
DOS auf, und läßt den Benutzer 
des Programms aktiv Aufgaben 
lösen. Unter anderem werden 
auch Pfade, Baumstrukturen, 
oder fortschrittlichere Funktio¬ 
nen wie Pipes, Filter, Sortierun¬ 
gen, Walteschlangen, usw. be¬ 
handelt. 

Das Dialogsystem vom 'DOS- 
Lehrer’ akzeptiert bei Fragen an 


den Benutzer eine große Anzahl 
ähnlich-richtiger Antworten. 
Informationen über die DOS- 
Befehle. Batch-Dateien und die 
Festplatte sind ebenfalls ent¬ 
halten. 

Das Programm läuft auf allen 
IBM und -kompatiblen Rech¬ 
nern, darunter auch dem AM¬ 
STRAD PC 1512. Vorausset¬ 
zung ist ein Speicher von 128 
KByte, DOS 2.0 oder höher und 
ein 80 Zeichen Monochrom¬ 
oder Farbbildschirm. 
'DOS-Lehrer' ist zu einem Preis 
von DM 98,— zu erhalten. 

Info: Lifetree Promotion 
Starnberger Weg 12 
D-8034 Germering 
Tel.: 089/842003 


Sla «erden alt dar UUta des HaupteenU» »ehr vertraut werden I 


- Sie ktfnnen In dm HaupteenU Ihre Auauahl treffen alt den 
RECHTS-Cureor-Taaten ( * oder * ). 


0 DRÜCK» SIE EINE TASTE! 


Benutien Sie e» Jede* 
wenn Sie ein 
neue« Thetu «Unachen 


0*t l'dpt den Deeo-Nodua 
laufen oder reatlejuno»- 
«erte «uf Di»kette «Iehern 


Benutien sie da» xun 
Te»tlegen neuer Wert« 


DMV auf der Orgatechnik Köln 


Vom 20.10. bis zum 25.10. 1988 
findet in Köln die jährliche in¬ 
ternationale Büromesse Orga¬ 
technik statt. 

Der DMV-Stand befindet sich in 
Halle 2.1, Gang J mit der Num¬ 
mer 60. Es besteht hier wieder 
die Möglichkeit, mit den Redak- 


ORGATECHNIK 

KOLN’88 

INTERNATIONALE BÜROMESSE 

20. bis 25. Oktober 


teuren der DMV-Publikationen 
in direkten Kontakt zu treten. 
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Bildschirm 

text 


Hallo 

Btx-Freunde 

Was macht der geübte Btx-ler, 
wenn er die Telefonnummer eines 
Bekannten vergessen hat, und die¬ 
se über Btx erfahren will? Na klar, 
er nimmt das elektronische Tele¬ 
fonbuch ETB und begibt sich auf 
die Datensuche. So auch einer der 
'begeisterten’ PC-Redaktcure und 
Autor dieser Zeilen. Wie groß war 
aber sein Erstaunen, als er nicht 
nur die ETB-Seite auf dem Moni¬ 
tor sah, sondern noch dazu die 
Werbung eines anderen Anbieters. 
Nach dem Erstaunen folgte dann 
aber der Ärger. Wenn jemand als 
Btx-Benutzer eine Einrichtung 
dieses Mediums nutzen möchte, 
dann möchte er die Titelseite dazu 
auf dem Monitor sehen und nicht 
die blinkende, protzende Wer¬ 
bungsanzeige eines Reiseveran¬ 
stalters, Feinkosthändlcrs oder ei¬ 
ner Weinstube. Das war UNSERE 
Meinung zu dem Thema. 

Sicher werden jetzt einige Btx-An- 
bieter erbost über diese UNSERE 
Meinung sein, und daraufhinwei¬ 
sen, daß Btx ja auch zu diesem 
Hauptzweck eingerichtet worden 
sei. Gut und schön, nur muß es 
heim Btx auch schon so enden wie 
im Fernsehen, wo die Vorabend¬ 
programme mittendrin gekappt 
werden, nur um 10 Minuten Wer¬ 
bung einzublenden? Oder wie in 
den Radiosendern, wo man mor¬ 
gens anstelle von heißen Rhyth¬ 
men oder kalten Informationen da¬ 
von überzeugt wird, warum diese 
Papierwindel tausend mal dichter 
ist als die andere. 

Werbung kann einen guten Zweck 
erfüllen, sic kann informieren, sie 
kann auch jemanden zum Kauf 
überreden, aber gerade im Btx 
sollte es möglich sein, dieses in ge¬ 
ordnetem Rahmen zu tun, ohne da¬ 
bei sich irgendwo zwischenzumo¬ 
geln. 

So, das mußte mal heraus. Wenn 
Sie anderer Meinung sind, oder 
konform mit dieser gehen, schrei¬ 
ben Sie uns doch mal. Wir werden 
erst mal auf die Mitteilungsseite 
gehen, und uns die neuen Eissor¬ 
ten anpreisen lassen. 

In diesem Sinne Ihre PC-Redaktion 


Btx-Pinwand 


In der Btx-Pinwand der Aus¬ 
gabe 7 war wohl der Schlaf 
über den zuständigen Redak¬ 
teur hereingebrochen, stand 
da doch zu Lesen, daß die 
DMV-Nummer 05651-8009-10 
mit einem Sternchen anfängt 
und einem Doppelkreuz endet. 
Geübte Btx-Fans haben es na¬ 
türlich sofort erkannt, diese 
Nummer kann nur über die 
Mitteilungsseite aufgerufen 
werden, und braucht diese bei¬ 
den Sonderzeichen nicht. Vie¬ 
len Dank an die, die es ge¬ 
merkt und uns darauf auf¬ 
merksam gemacht haben, alle 
anderen bitten wir um Verge¬ 
bung. 

Modul-Erfahrungen 

Stellvertretend für viele Zu¬ 
schriften, die wir zum CPC- 
Btx-Modul bekommen haben, 
möchten wir Ihnen die Mei¬ 
nung unseres Lesers Günter 
Schlepper mitteilen: 

Ich möchte an dieser Stelle 
noch Erfahrungen mitteilen, 
die ich mit dem Btx-Modul ge¬ 
macht habe. 

Die Pause-Routine, wie Sie im 
Btx-Modul vorliegt, erscheint 
mir vollkommen sinnlos, da 
sie nur für ein Bild wirkt. Sinn¬ 
voller wäre es, wenn man sie 
für die nachfolgenden Seiten 
fest einstellen bzw. verändern 
könnte, um z.B. bei einer lau¬ 
fenden ’Diaschau' die Pausen¬ 
länge einzustellen. Dies ist mir 


bisher noch nicht gelungen. 
Die Btx-Seiten lassen sich 
zwar wunderschön über 
“F3-C“ (Capture-Mode) ab¬ 
speichern; so werden, wenn 
man vorher nicht abbricht) bis 
zu 12-Seiten (je nach Seitenin¬ 
halt) auf einmal abgespei¬ 
chert, aber den Nachteil sehe 
ich nun darin, daß die Seiten 
jetzt nicht wieder als Gesamt¬ 
heit (wie sie abgespeichert 
wurden), sondern einzeln, 
oder in Gruppen von der Dis¬ 
kette nachgeladen werden. 
Wenn man nun von einer Seite 
sich den Textinhalt aus- 
drucken lassen will, muß man 
erst die laufende Diaschau ab¬ 
brechen, den Text über F3-X 
abspeichern und wieder ganz 
von vorne anfangen, wobei die 
Diaschau dann auch mit dem 
ersten Bild wieder beginnt. 
Dies wird dann ziemlich zeit¬ 
aufwendig, wenn man sich 
mehrere Texte ausdrucken las¬ 
sen will. Hier wäre es günstig, 
wenn die ganzen Bilder im 
Speicher wären, man zwi¬ 
schendurch anhalten könnte, 
um den Textinhalt abzuspei¬ 
chern, um dann an der unter¬ 
brochenen Stelle mit der Dia¬ 
schau weiterzumachen. 
Vielleicht weiß jemand eine 
Laderoutine, wie man diese 
Bilder extra in den Speicher 
einladen kann, um diese dann 
per Programm, wie von mir 
angegeben, zu steuern. 

Für diejenigen, deren Drucker 


Btx-Aktuell 


Politik intern 

Wer bei dem Wort Politik zu¬ 
sammenzuckt, oder wem die 
Mitglieder des Bundestages 
völlig fremd sind, der sich 
aber trotzdem für politische 
Themen interessiert, der sollte 
einmal über das Stichwortver¬ 
zeichnis die Seiten über den 
deutschen Bundestag auf- 
rufen. 

Hier kann man sich nicht nur 
über die Personen der Fraktio¬ 
nen und ihre Lebensläufe in¬ 


formieren, sondern auch über 
die Ziele der einzelnen Partei¬ 
en, deren Mitglieder und der 
Parteienstruktur. 

Sogar die Lebensläufe promi¬ 
nenter Politiker sind abrufbar, 
somit kann man sich für die 
nächste Wahl schon mal über 
die jeweilige Person informie¬ 
ren, der man letztendlich seine 
Stimme gibt. 

Die Zusammensetzung des Äl¬ 
testenrates und des Präsidiums 
sind ebenso einsehbar, wie 
Unter suchu ngs - Au s schü sse, 


beim Btx Unfug macht, habe 
ich einen Tip. Ich behelfe mir 
damit, die Btx-Seite mit F3-X 
abzuspeichern und sie später 
in ein geeignetes Textverarbei- 
tungs-Programm wieder ein¬ 
zulesen und sie von dort auszu¬ 
drucken. 

Vielleicht weiß im Gegenzug 
jemand eine Lösung, wie man 
eine Hardcopy von Btx-Seiten 
erstellen und diese nach Mög¬ 
lichkeit mit COPYSHOP wei¬ 
terbearbeiten kann ? Hierzu 
sollte es eine Möglichkeit mit 
dem COPYSHOP-Zusatzpro¬ 
gramm 'SCRSA VE ’ geben. 

Günter Schlepper 
Tri erwei ler-Si rzenich 

Wir können die von Herrn 
Schlepper genannten Proble¬ 
me nur bestätigen, eine Lö¬ 
sung haben wir leider auch 
nicht. Da unser Pinwand je¬ 
doch ein Forum der Btx-ler 
werden soll, können Sie, wenn 
Sie in der Lage sind, eine Ant¬ 
wort zu geben, diese an uns 
schicken, wir werden Ihre Hil¬ 
festellungen gerne weiterge¬ 
ben, wie auch den Tip von 
Herrn Schlepper zum Aus¬ 
druck. Interessant wäre es 
auch, von Ihnen zu erfahren, 
ob Sie in bezug auf die norma¬ 
le Programmierung mit ange¬ 
schlossenem Btx-Modul Pro¬ 
bleme haben und welcher Art 
diese Probleme sind. 


die Organisation der Fraktio¬ 
nen, und die Vorstellung deut¬ 
scher Parlamentarier im Euro¬ 
pa-Parlament. 

Man kann diese Btx-Initiative 
des Bundestages eigentlich nur 
begrüßen, bietet Btx doch hier 
dem ’Otto Normal-Wähler’ 
die Möglichkeit, sich über das 
politische Geschehen in der 
Bundesrepublik zu informie¬ 
ren. Unserer Meinung nach 
sollte es mehr solche 'Anbie¬ 
ter’ geben. 
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-AMS-Line - 

der direkte Draht zu AMSTRAD 

Wie jeden Monat präsentieren wir Ihnen aktuelle Informationen aus erster 
Hand. 


PC 1640 mit Harddisk 

Manche glauben es nicht, aber es ist so. 
Der PC 1640 wird immer mit einge¬ 
richteter Festplatte ausgeliefert. D.h. 
es ist wirklich nicht nötig, die Festplat¬ 
te zu formatieren und DOS und GEM 
zu installieren. Es ist alles bereits auf 
der Festplatte vorhanden. Der Spaß mit 
dem PC kann direkt beginnen. 

GEM 

Amstrad liefert mit dem PC 1640 und 
dem PC 1512 immer GEM mit. GEM 
ist eine Benutzeroberfläche, die das 
Arbeiten mit dem PC erheblich erleich¬ 
tert. Denn es müssen keine Befehle ge¬ 
lernt werden, um z.B. Dateien zu ko¬ 
pieren, zu löschen oder ähnliches. Zum 
Lieferumfang gehören auch zwei inter¬ 
essante Applikationen, die an diese 
grafische Benutzeroberfläche angepaßt 
sind. Das sind ein BASIC-Interpreter, 
der die grafischen Möglichkeiten des 
PCs unterstützt, und Paint, ein Zei¬ 
chenprogramm, das pixel-orientiert ar¬ 
beitet. 

Was oft vergessen wird, ist, daß es für 
GEM eine Reihe sehr interessanter Ap¬ 
plikationen gibt. 

Als Applikationen wären z.B. aufzu¬ 
führen: 

- Beckercalc, Kalkulation mit grafi¬ 
scher Darstellung der Werte. 

- Desktop Publisher, zur Erstellung 
von Zeitschriften oder sonstigen 
Druckschriften. 

- Draw, ein objekt-orientiertes Zei¬ 
chenprogramm. 

- Graph, Businessgrafik mit ver¬ 
schiedenen Darstellungsmöglich¬ 
keiten. 

- Wordchart, Textpräsentations¬ 
grafik. 

- Ist Word Plus, Textverarbeitung. 

- Diary, Terminkalender mit Alarm 
und Karteikasten. 


— Superbase und GBase, Daten¬ 
banken. 

Diese Liste ist nicht vollständig, zeigt 
aber, welch breite Palette abgedeckt 
wird. 

PPC 512 und PC 1640 Monitore 

Die Monitore des PC 1640 sind, wie 
bereits berichtet, nun einzeln verfüg¬ 
bar. Diese Monitore können auch an 
den PPC 512 ohne Änderungen ange¬ 
schlossen werden. Die Stromversor¬ 
gung erfolgt dann über den Monitor 
und nicht über das externe Netzgerät. 
Mit DIP-Schaltern an dem PPC kann 
die Art des Monitors angewählt wer¬ 
den. Beim Booten des PPC erfolgt eine 
Meldung auf dem LCD-Bildschirm, 
daß die Tastenkombination [Rollen] 
und [Strg] die Umschaltung LCD- und 
CRT-Schirm ermöglicht. Die Auflö¬ 
sung des Monitors entspricht der maxi¬ 
malen Auflösung des LCD-Schirms 
und die ist CGA. 

Harddisk für PCW 

Die Firma VORTEX bietet nun eine 
neue Generation von externer Festplat¬ 
te für die Amstrad Computer an. Die 
Lösung heißt System 2000 und besteht 
aus einem Gehäuse, das die Festplatte, 
den Controller und das Netzteil auf¬ 
nimmt und einem Personality Modul, 
das den Anschluß an den jeweiligen 
Gerätetyp gewährleistet. So stehen 
Personality Module für PCW 8512/ 
8256, PCW 9512. PC 1640/1512 so¬ 
wie den PPC 512 zur Verfügung. Das 
Sy stem 2000 kann somit an 8-Bit CP/M 
Rechner und an 16-Bit MSDOS Rech¬ 
ner angeschlossen werden. Die Grund¬ 
einheit gibt es in vier verschiedenen 
Ausführungen, mit einer Kapazität von 
20MB, 30MB, 40MB und 60MB. Zum 
Lieferumfang gehört eine Diskette im 
entsprechenden Systemformat mit ei¬ 
nem Backup-Progrmm, einem Trans- 
portsicherungs-Programm und ent¬ 


sprechender Treiber- bzw. Installa¬ 
tions-Software. Mit der Installations- 
Software wird das System 2000 in das 
bestehende Betriebssystem wie CP/M 
plus, Locoscript oder MSDOS einge¬ 
bunden. 

Die Festplatten-Kapazität kann in ver¬ 
schiedene Partitionen aufgeteilt wer¬ 
den. D.h. ein Bereich wird für die Ar¬ 
beit mit dem PCW reserviert, der ande¬ 
re Bereich für die Arbeit mit dem PPC. 
Dabei ist ein Austausch von Daten zwi¬ 
schen beiden Bereichen möglich, wenn 
es sich um ASCII-Dateien handelt. 
Nähere Informationen von: 

Fa. VORTEX Computersysteme 
GmbH 

Falterstraße 51-53 
7101 Flein bei Heilbronn 
Tel. 07131/52061-63 

D-RAM Situation 

Die D-RAM Situation spitzt sich im¬ 
mer mehr zu. Jetzt geht es nicht mehr 
nur um die astronomischen Preise, son¬ 
dern auch um die Verfügbarkeit der 
kleinen schwarzen “Käfer mit den vie¬ 
len Beinen“. In den USA hat es schon 
jetzt Preiserhöhungen von 3% bis 23% 
gegeben. Ähnliche Maßnahmen sind 
auch für den deutschen Markt in Kürze 
zu erwarten. 

Top Ten 

Das Computerspiel Desolator für den 
CPC ist in der neuen Computerspiele- 
Hitparade auf Platz 10 mit steigender 
Tendenz. 

Literatur 

Für die Amstrad Computer gibt es wei¬ 
terführende Literatur, die über die 
Informationen des Benutzerhandbu¬ 
ches hinausgehen und sich mehr mit 
den Innereien der jeweiligen Systeme 
beschäftigen. Dazu gehören auch die 
Service-Unterlagen mit Schaltplänen 
und Diagnose- und Justierhinweisen. 
Bitte informieren Sie sich bei ihrem 
Amstrad-Fachhändler. 
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[ Neu: 


EASI-ART + 
CPC-Trackerball 



Der Marconi RB2 Trackerball, 
jetzt auch für Ihren CPC. Mit 
eigenem eingebauten Prozes- 
sor.lm Lieferumfang enthalten 
das hervorragende Grafikpro¬ 
gramm EASI-ART von Micro- 
draw, mit vielen Besonderhei¬ 
ten und allen notwendigen Uti¬ 
lities! 

komplett für nur DM 298,- 

Marconi RB2 Trackerball für alle 
Schneider/AMSTRAD PC's 

DM 198,- 

Händler- und Intoanlragen erwünscht 
i- (schrittl.)l 


Alles für Ihren 


CPC 

464, 664, 6128 


dk'tronics Produkte für CPC 


für 464/664: 


für 6128: 


Speech Synth. (ROM) 

148,- 

256k Erweiterung * 

348,- 

Speech Synth. (Kas.) 

98,- 

256k Silicon Disk * 

378,- 

Lightpen (Kas.) 

68,- 

Speech Synth.(ROM) * 

148,- 

Lightpen (ROM) 

98,- 

Lightpen (ROM) * 

98,- 

64k Erweiterung 

168,- 

64k Silicon Disk * 

168,- 

256k Erweiterung 

348,- 

Uhrenmodul (neu!!) * 

119,- 

256k Silicon Disk 

378,- 

Adapter (alle Module *) 

39,-* 

Uhrenmodul (neu!!) 

128,- 




Mastercopy 

Kopierprogramm für Schneider 
CPC Mastercopy kopiert 
99,9 % aller Disketten!! Mit 
preiswertem Update-Service. 
•3" Diskette für nur 

DM 69,90 


Supercopy 

Das Diskettenkopierprogramm der 
Superlative für den Schneider CPC 
464, 664, 6128 und Joyce! Mit 
Update-Service! 

3"Dlskettc für nur 

CPC's 65,— Joyce 85,— 


STAR-DIVISION 

Programme für CPC 


STAR-WRITER I 


Textsystem der Superlative 1 

Textverarbeitung • Adreßver- 
waltung * Grafikprogramm * 
DFÜ-Programm • Zeicheneditor • 
Install-Programm! 

Möglichkeiten: 

Trennvorachtäge • Zeilenbreite frei wählbar 

• Wordwrap • Blocksalz ■ Flattersatz ■ Zen¬ 
trieren • Blockoperailonen • Kopf- und Fu8- 
texte • Suchen und tauschen • Sehenbriefe 

• Grafik und Text mischen - u.v.m. 

3" Diskette nur DM 98,- 


DATEI-STAR 


Das universelle Datenverwal¬ 
tungsprogramm für alle CPC- 
Rechner ! 

Egal ob Sie Ihren Verein, Ihre Schal plat¬ 
te- etc. verwalten wollen, DATEI-STAR Ist 
das richtige Programm dafür I 

3" Diskette nur DM 98,- 


Zubehör CPC 


IN 


Druckeikabel CPC's 39,-- 

Monitor Verlängerung CPC 29,50 
Zweitlaufwerke für 664, 6128: 
3"-Laufwerk 298,- 

3^"-Laufwerk 398,- 

51/4"-Laufwerk 448,- 

Diskettenbox 3"/3,5" 40 39,80 

Diskettenbox 3"/3,5" 80 49,80 

Joystick Compet. 5000 39,- 

Joystick Schneider 39,- 

Etiketten: 

70x70 mm, endlos (200 Sl) 16,- 
Abdcckhauben: 

Konsole 464, 664, 6128 jel9,80 

Monitor grün, color je29,80 

DMP 2xxx/3xxx je 19,80 
Flopp. DD1, FD1, Vonex je 16,80 
Traktor NLQ 401 79,50 

Datenrekorder (664,6128) 89,- 
Datenfernübertragung: 

Dataphon 21 S 278,-- 

Dataphon 21-23 S 378,— 

Anschlußkabel 68,- 

Xjeibersoflware .... 


Arnor Software 


PROWORT • Tcxtwraxbeimng mit Msimergi 
und R£cht)cteeibk[*itjTiUe « difh Handbuch 
3- Diskette 6128, Joyce (CP/M+) Je 219,- 
PROTEXT für CPC 464,66*. 6128 
3- Dixk. 94,- EPROM 124,- 
MAXAM ■ Kämpfern:« Z80 Entwicklungs- 

lytem • Assembi er/Disssaan bier/Mcsutor 
3* Disk. CPC 464, 664, 6128 94,~ 

EPROM 124,- 

MAXAMn 6128, Joyco 239,- 
PROSPELL • Rcchnclmibeprilfung fiir Loco- 
Script deutsche Verakm) 70,— 

Deutsches Handbuch für 
Protext / Max am (CPC) 19,80 


ROMBO Produkte 


ROM BOX für CPC • ROM-StcckpUtmr- 
weitnrung • 8 ROM SteckpUtze ■ ROM'« belogpn 
keinen Speicheipfttz, somit ist die ROMBOX die 
idesle Hsrdwaieenveilenmg für Sie • mit isutsch. 
Anleitung • 

CPC 464, 664,6128 118,- 

VIDI für CPC, Joyce und PC 

• hervorragender Vidcodigiüzer • mit Controller • 
mit deutschem Handbuch • 

CPC 348,- Joyce 378,- 
V fC (IBM-Komp.) 448,- , 


Wir haben für Sie bei AMSTRAD eingekauft 


PC 1640: 

MD/SD 1.699,- 
MD/DD 1.999,- 
MD/HD20 2.599,- 
CD/SD 2.099,- 
CD/DD 2.399,- 
CD/HD20 2.999,- 
ECD/SD 2.699,- 
ECD/DD 2.999,- 
ECD/HD20 3.599,- 

Super !! 

PCW 8256 
PCW 8512 
CPC 6128 grün 
CPC 6128 color 
CPC 464 grün 
CPC 464 color 

Drucker: 

• LQ 3500 (24 Nadel) 

* LQ 5000 (24 Nadel) 



PC 1512: 

MD/SD 1.299,- 
MD/DD 1.599,- 
CD/SD 1.699,- 
CD/DD 1.999,- 

Port.-PC 512: 

3,5" laufw. 1.699,- 
2Laufw. 1.999,- 

PCW9512 



Neu!! 

1.699,- 

999,- 

•DMP 2160 

499,- 

1.299,- 

•DMP 3160 

599,- 

799,- 

• DMP 4000 

899,- 

1.099,- 

Laufwerke: 

FD1 (CPC) 

299,- 


399,- 

699,- 

899,- 

1.399,- 


FD2, FD3, FD4, FD5 je 449,- 

CPS 8256 (RS232) 198,- 

CPC RS232 198,- 

DD1 499,- 

MP1.MP2 49,-/ 99,- 


CPC - Renner! 




AMX-Mouse 


für CPC 

* Steuerung des Computers 
Ober den Bildschirm • mit 
hervorragendem Grafikpro- 
gramm 

Programm incl. dtsch. 
Handbuch 278,- 
Handbuch deutsch auch 
einzeln erhältlich 

29,80 


Seitengestalter 
Stop Press 


• erlaubt Herstellung von 
Zeitungen, Posier und Hand¬ 
zettel • benötigt 64k Zusatz¬ 
speicher bei 464 und 664 
(nur dk'tronlcsll) • incl. 
dlsch. Hanctouch • 

Stop Press 198,— 
Stop Press + AMX Maua 
328,- 

Handbuch dtsch. auch ein¬ 
zeln erhältlich 

29.80 


Gerdes-Maus 


für cpc nur 179,- 


Star Mouse tur cpc 


■ spanische Maus mit Grafik¬ 
software ähnlich AMX- 
Mouse nur 128,- 



Multiface II 


(Kopierprogramm) 

Vollständige Kopierein- 
rlcMung für Kassetten und 
Disketten 

DM 178,- 

AdapterlQr 6128 39,- 


Darf - Scanner 


Wenn Sie Besitzer eineG 
Schneider/AMSTRAD CPC 
und eines DMP 2000 sind, 
haben Sie mit dem Dart- 
Scanner die Möglichkeit. 
Bilder und Grafiken In Ver¬ 
bindung mit einem korrpL 
Gralikprograrrm in den 
Corrpuler einzule6enl Mit 
deutscher Anleitung I 
fOr CPC 464, 664,6128 

nur 249,- 

Adapter CPC 6128 39,- 


BTX-Modul 


Jetzt auch lOrCPC'sl 
* erlaubt den Anschluß ihres 
CPC's an den BTX-Rechner 
der Bundes-Post I 

398,- 


Vokabellrainer 


Kassette 

Diskette 


39,- 

49,- 


Verbentrainer 


Kassette 
Dis keile 


29,- 

39,- 


fHandbücher deutsch 

aller aufgeführten engl. 
Produkte wie z.B.: 

Grafpad 3 • Lightpen dk'tronics • 64/ 
256 k Erweiterung dk'tronics • Mous 
Elektrik Studio * Lightpen Elektrik 
Studio • AMX Mouse • AMX Seiten 
gestalter... je J9,80 

Farbbänder 

NLQ 401 14,80 StsrNLlO 24,80 

DMP 2000^160/3000/3160 19,80 

^LQ 3500 29^0 LQ5000 29,80/ 


/'Preisgekrönte 


Super! 


CPC-Adventures 


in deutsch I 

• Diamant von Rabenfels (Graphic) 

• Drachenland (Text) 

• Reise durch die Zeit (Text) 

• Sherlock Holmes (Graphic) 

• Auftrag in der Bronx (Graphic) 

• Insel der Smaragde (Text) 

• Das Pharaonengrab (Text) 

Kassette DM 39,- 

Dlskette DM49,- 


Neu! Mini Office II 

Der absolute Renner in Groß¬ 
britannien. Preisgekrönte Ge¬ 
schäftssoftware des Jahres 19S6 
und 19871 

• Textverarbeitung 

• Datenbank 3"-DtskattB 

• Geschäftsgraphik 

• Etikettendruck 

• Tabellenkalkulation 

!0r CPC 464. 664.6128 DM 98,- 


Schaltplanservice 


CPC 464-664 

Je 

29.80 

CPC 6128 


29,80 

PCW 8256-8512 


29.80 

CTM644 


19,80 

CTM640 


19,80 

GT 64/65 

Je 

19,80 

PC 1512/1640 

Je 

29.80 

Monitor CM/MM 

Je 

19.80 

EGA-Monitor 


19,80 ) 


J 



























































































































Joyce-Zubehör I 

Schaltplan 8256«5i 2 

29,80 

10x3" Disk. CF2 Panasonic 

89,- 

iox Noname Disk. 

69,- 

10x3" Disk. CF2 DD 

148,- 

Joystick Quickshot ii 

19,80 

Joyst. Compet. Prosooo 

39,80 

Gerdes Maus ■ rs 232 erforderlich • 

mit Grafikprogramm 

178,- 

RS 232 (Schnittstelle) 

198,- 

Diskettenbox (2x40 Disk.) 

39,- 

Farbband für Drucker 

24,80 

Papierführung (einfach) 

29,- 

Bildschirmfilter (antirefiex) 

59,- 

200 Endlosetiket. (70x70) 

16,- 

Verlängerung (Druck.,i2V) 

68,- 

Typenraddrucker 

698,- 

Druckertreiber 

39,- 

VIDI-Digitizer(ROMBO) 

348,- 

Diskettenlaufwerke 


2x80 Tracks • 720 KB • anschluß- 

fertig • Metallgehäuse • 


3.5" 

348,- 

51/4* 

448,-^ 


Alles für Ihren 


Joyce 

PCW 8256, 8512, 9512 


Public Domain Software 


CPC+Joyce 


Über 1000 Public- 
Domain Programme 

Jede Disk. 20,— 
Liste anfordern! 
(Schriftlich I) 


PD mit deutschem 
Handbuch 

Nr.l: Pascal-Compiler 
(JRT) 

ZSO Assembler, Dis¬ 
ass embter und 
Linker 

Imerpraer fOr Ltep 
u. Prolog 
C-Compiler (Small 
C) 

Forth-83 
CP/M-Hilf sprogr. 


Nr. 2: 


Nr.3: 


Nr.4: 


Nr.S: 

Nr.6: 


Nr.7: CPC Arbeitsbuch 
Nr.8: Cave Adventure 
Nr.9: CPC Disk Utllttes 
Nr.10: BtzBasic 
Nr.11: Basic E-Compiler 
Nr. 12: Inline Generator 
Nr.13: Progr. aus Joyce 
programmieren 


□ 



Nr.14; prg, CPC-Datelverw. 
Nr. 15: WordStar-Utilkles 
Nr. 16: üteraturverwaJtung 
(Or dBase II 

Nr.17: C-Inlerpreter - Inter¬ 
aktiv C lernen 
Nr.18: MacroPack/ZBO 


Nr. 19: Telekommunikation 
mitMEX 

Jede Disk. 30,- 
Neu: (keine PD) 

WS-Tuner (Or Word-Star 

nur DM 49,80 


MS-DOS 


Mehr als 700 Disk, mit 
über 10000 Program¬ 
men sofort lieferbar! 

Liste «nfordernt 
(SchriflGchl) 

Jede Disk. 8,- 
PD-IOer Blöcke: 

4 Böcke mit jeweils 10 
hervorragend zusammen- 
gesleliten Diskettenl 

Block 1-4 je 68,- 


Elektric Studio 


PCW 8256/8512/9512 

Preisgekröntes Zubehör aus Eng¬ 
land! 



Maus* 
Adapter (*) 


398,- 

39,- 


dk tronics Prod. 


PCW 8256/8512/9512 


Joystick-Controller* 
Joystick-Contr.+Sound* 
Echtzeituhrenmodul* 
256 k Erweiterung 
^daptor (*) (Or engl Prod. 


69,- 

129,- 

129,- 

248,- 

39,- 


r Software für Joyce ... 


Amor: 

PROWORT 

219,- 

PROSPELL 

79,- 

MAXAMII 

239,- 

1 VAN OER ZALM: 1 

ADRESCOMP 58,- 

COMFORM 

48,- 

DATENREM 

68,- 

ETATGRAF 

58,- 

FIBUCOMP 

136.- 

LAGDAT 

68,- 

PROFIREM 

136,- 

VOKABI 

58,- 

FAKTUREM 

78,- 

KALKUREM 

78,- 

Locomotive: 

LocoScript2 

168,- 

LocoMail 1 

128,- 

LocoMail 2 

211,— 

LocoSpel! 2 

168,- 

I Verschiedenes: 1 

I DBase II 

198,- 

1 Multiplan 

198,- 

\)J/ordStar 

198,- 


TaswordBOOO 148,- 

Prospell engl. 50,- 

Vereinsverwalt. 198,- 

Headline 

(Layouiprg.) 198,- 

RH-DAT 

(Datenbank) 98,- 

Turbo Pascal 225,- 

TurboTutor 106,- 

DR-Graph 

(Grafikprg.) 198,- 

DR-Draw 

(Zeichenprg.) 1 98,- 

Datamat (Daten- 
banksyst.) 99,- 

CBasic-Compiler 198,- 

Prompt 

(Dateiprg.) 69,- 

Prompt Druck 
(Masken) 39,- 

MICA(CAD) 198,- 

Vokabeltrainer 59,- 

Verbentrainer 49,- 

Datamat 99,- 

TurboAdress 98,- 

Turbo Faktura 148,- 

varDat 199,- 

Basic Compiler 139,- 


Suparcopy: 

Diskettenköpierprogramm der 
Superlative tür Ihren Joycel 
Mit preiswertem Update- 
Service. 85,— 

COMAC-Kasse Plus: 

Komfortable Einnahmen¬ 
überschußrechnung. 

168,- 

CARAT-Kasse Plus: 

Einnahmen/Ausgaben Ober- 
schuBrechnung. 

168,- 


Hansesoft: 


Schreiblehrgang: 
10-Finger-Schreiben lernen 
auf der Schrebmaschine und 
demComputerl 

89,- 

PSE2: 

Lernen Sie das Periodensy¬ 
stem der chemischen Ele¬ 
mente kennen. Ein irres Pro¬ 
gramm zum Erlernen eines 
"trockenen" Stoftee I 

129,- 


FISKUS 1987-1988: 
Lohnsteuer-Jahresausgtelch 
tOr alle lohn- und einkommens- 
sleuerpllichligen Einkommen 
von Arbeitnehmern. Jährliches 
Update gegen KoeterbeteF 
Hflungl 139,.. 


STAR-DIVISION: 


STATISTIK-STAR 


Grafik- und Statistikpro¬ 
gramm I 

Erstellen von Businessgrafi¬ 
ken - statistische Auswer¬ 
tungen • Editierfunktionen • 
menueorienüerte Bedienung ■ 
Gralik-Ausdruck auf komplette 
DIN A4- Seite • ausführliche 
Dokumentation 

98,- 


STAR-MAIL 


Erweiterung von Loco- 
acript I 

Locoscrpt-Texte können auf 
Fremddruckern ausgedruckl 
werden • Erstellen von 
Serienbriefen - u.v.m, 

98,- 


... PCW 8512, 9512 

selten ■ 100 Datentelder 
pro Eingabemaske • 


DATEI-STAR 


Deteiverwaltwgs- 
system I 

Einfache Bedienung durch 
PULL-DOWN Menuee ■ frei 
definierbare Eingabemaske • 
1400 Zeichen pro Datensatz ■ 
frei definierbare Such-, Selek¬ 
tier- und Druckmaske • frei 
definierbare Listen- und EtF 
keflendruckmaske • u.v.m. 

98,- 


MAILING-SYSTEM 


Softwarepaket: STAR¬ 
MAIL ♦ DA TB-STAR I 

189, 


STAR-BASE 


Datenbankayatem I 

Aufbau: Maskengenerator, 
Druck maskengeneralor, 
Systemdalei, Menuegenera- 
lor, Tastaturanpassung, 
Druckeranpasaung, Pro¬ 
grammkonfiguration • PULL- 
DOWN-Menues • Eingabe¬ 
maske über 9 Bildschirm- 


kompletter Report¬ 
generator • u.v.m, 

198,- 


BUSINESS-STAR 


Auftragsbearbeilung mit: 

• Fakturierung 

• Lager Verwaltung 
■ Mahnwesen 

• Daten Verwaltung 

• und Dienetprogr. I 

298,- 


FIBU-STAR PLUS 


Professionelle 
Finanzbuchhaltung I 

Einfache Bedienung 
und hohe Absicherung 
gegen Bedienungs¬ 
fehler • u.v.m. 

298,- 


LOCO-MERGE 


Serienbrieferstel¬ 
lung! 


98.« 


( Joyce Neuheiten ! 


Mini Office 
Professional 


Das integrierte Software- 
Paket, das selbst hohen 
Ansprüchen gerecht wirdl 
Bestandteile: • 
Textverarbeitung - DFÜ * 
Datenbank ■ Tabellen¬ 
kalkulation ■ Geschäfis- 


begefeiert sein, von der ein¬ 
fachen Bedienung und den 
kolossalen Möglichkeiten die¬ 
ses Programms. 

StopPress 198,-- 

StopPress 

+ AMX Maus 378,- 


grafik 


DM 138,- 


Fleet Street 
Editor 


Dieses Programm macht 
aus Ihrem Joyce eine 
richtige Desktop-Pub- 
lishing-Maschine. 

DM 198,- 




Das sensationelle Pro¬ 
gramm im Bereich des 
Desktop-Publishings für 
ihren Joyce. Wieviele 
Vordere werden auch Sie 



AMX-Maus Joyce 


Steuerung dos Computers 
Uber den Bildschirm • Mit 
AMX-Desktop-Programm • 
Telefonverzeichnis • Notiz¬ 
buch ■ Kalender • Paplerkorb 

nur 298,- 
Adapter 39,— 


Margin Maker 


Margin Maker ist die Papier- 
f Ohrung schlechthin. Er ver¬ 
leiht Ihrem Drucker hervor¬ 
ragende "Führungselgen- 
schaften". 


nur 29,95 


Joyce-Scanner 


MasterScan & 
MasterPalnt 

Scanner einfach auf Drucker¬ 
kopf stecken und los geht'sl 

MasterScan 298,- 

MasterPaint 78,— 
Paketpreis 338,- 

Adapter 39,- 


Desktop Publisher 


Ermöglicht professionelles 
Desktop-Publtehing auf 
Ihrem PCW 8256/8512/9612 

für nur 118,- 

... kompf. mit AMX-Maus 

328,-- 

Alle engl. Produkte mit erst¬ 
klassiger deutschen Über¬ 
setzung! Info anfordern I 


Achtung! 

Liebe Computerfreunde in der 
Schweb. Den Vertrieb unserer 
Produkte in der Schweiz über¬ 
nimmt ab sofort: 

Martin Engell 
Roggenacheri 
CH 3306 Brüttisellen 
Tel. 01/8335440 

(vorerst von 18-20 Uhr) 


Joyce-Spiele 


Batman 59,-- 
Strike Force H. 69,- 


S.A.S. Raid 
Tomahawk 
Ct. Chess 68 
Colos. Chess 
Football Fort. 
Knight Orc 
MatchDay2 
Witness 
Colos. Bridge 
Tetris 
Bounder 


59.- 

79.-- 

69,- 

69,- 

69,- 

69.- 

49,- 

69,- 

53,- 

65,- 

49,- 


Bridge Player 
Falrlight 
F.B.Boxing 
PSI 5 Trading 
Blagger/Guard. 
Jewels Darkn. 


59.- 

59,- 

69.- 

49,- 

59.- 

89,- 


Flead over Heels 49,- 


Pawn 

Wishbringer 
Spellbreaker 
St 0. Snooker 
Jinxter 

Forth Protocd 


89,- 

89.- 

89.- 

59,- 

79.- 

53.- 


Karl-Heinz Weeske • Potsdamer Ring 10 «7150 Backnang* 
Telex 724410 weebad • Kreissparkasse Backnang (BLZ 
60250020)74397 • Postgiro Stgt. 83326-707 • FAX 60077 
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COHPUTER-ELEKTRONIK 


Versandkostenpauschale (Inland 6,80 DM /Ausland 16,80 DM). 

Bitte bei Bestellung Intoanforderung den Computenyp angeben! 

Bel Intoanforderung bitte DM 3.- m Briefmarken beilegen! 

07191/1528-29 od. 60076 J) 






































































































I—Bericht 



Gut gebrannt hält länger 

EPROMS - Technologie und Program¬ 
mierung von Speicherbausteinen 

Begriffe wie RAM und ROM dürften wohl jedem Computerbesitzer und -be- 
nutzer ein Begriff sein. Aber Hand aufs Herz, wissen Sie, wie Speicherbau- 
steine funktionieren? In unserem Bericht über EPROMS werden Sie Interes¬ 
santes über Speicherelemente im allgemeinen, also über Unterschiede von 
RAM, ROM und EPROM erfahren. Anschließend werden Ihnen Grundlagen 
der Programmierung von EPROMS vermittelt. Zum Abschluß erfahren Sie, 
wie man EPROMS ansteuert und an die in ihnen gespeicherten Informatio¬ 
nen herankommt. Auch die Software wird nicht zu kurz kommen. Wir wer¬ 
den darüber berichten, welche Befehle die Schneider/Amstrad-Firmware zur 
Ansteuerung von EPROMS bereithält und wie sie eingesetzt werden können. 
Den Abschluß unseres Berichtes wird eine Übersicht bilden, aus der Sie ent¬ 
nehmen können, was an Zubehör zum Thema EPROM auf dem Markt er¬ 
hältlich ist. 


Kein noch so einfach aufgebauter 
Computer kann auf einen Datenspei¬ 
cher verzichten. Doch woraus besteht 
ein solcher Datenspeicher und wie 
funktionieren die einzelnen Elemente? 

RANDOM ACCESS 
MEMORY (RAM) 
Schreib-/Lese-Speicher 

Das RAM-Speicherelement hat die 
Aufgabe, digitale Informationen zu 
übernehmen, diese über einen längeren 
Zeitraum ohne Änderungen oder Ver¬ 
lust zu bewahren und auf Abruf eine 
Kopie des Inhaltes wieder abzugeben. 
Wichtig ist, daß sich die Information 
beliebig oft auslesen läßt, ohne daß der 
Inhalt verloren geht. Erst ein Über¬ 


schreiben mit neuen digitalen Werten 
ändert den Speicherinhalt. 

Man unterscheidet bei den Speicherele¬ 
menten zwischen zwei verschiedenen 
Technologien, den statischen und den 
dynamischen Speichern. Eine statische 
Speicherzelle stellen wir uns als Flip- 
Flop vor. Je nachdem, welcher Pegel 
(LOW oder HIGH) am Dateneingang 
während des Schreibzyklus übergeben 
wird, kippt das Flip-Flop und behält 
diesen Zustand, solange, bis der inver¬ 
se Pegel übergeben wird (im weitesten 
Sinne ist auch ein Lichtschalter ein 
Flip-Flop, er “speichert“ die “Infor¬ 
mation“, ob der nächste Schaltvorgang 
die Lampe an- oder ausgehen läßt). Der 
große Nachteil aller RAM-Speicher- 
zellen besteht darin, daß sie bei fehlen¬ 
der Versorgungsspannung sofort ihre 


Informationen verlieren. Deshalb wer¬ 
den in Computern bestimmte kleine 
Speicherbereiche, die wichtige Infor¬ 
mationen für den Boot-Vorgang enthal¬ 
ten, mit Batterien oder Akkus gepuf¬ 
fert. Doch zurück zur Speicherzelien- 
Technologie. Eine zweite Art von 
Speicherzellen sind die dynamischen. 
Sie bestehen aus aus winzigkleinen 
Kondensatoren. Ein Kondensator hat 
die Eigenschaft, seine einmal erhaltene 
Ladung langsam, aber sicher wieder 
abzugeben. Ein sogenanntes “Refre¬ 
shing“ ist also notwendig. Im Abstand 
von wenigen Millisekunden müssen die 
Inhalte der einzelnen Kondensatoren, 
sprich ihre Ladungen, abgefragt und 
wieder aufgefrischt werden. Sie kön¬ 
nen sich vorstellen, daß der Steucrauf- 
wand bei dynamischen Speichern um 
ein Vielfaches höher ist als bei den sta¬ 
tischen Elementen. 


READ ONLY MEMORY 
(ROM) 

Nur-Lese-Speicher 


Neben dem RAM-Speicherbereich be¬ 
nötigt das Rechenwerk eines Compu¬ 
ters einen Bereich, aus dem es direkt 
nach dem Einschalten Informationen 
entnehmen kann. Wie wir gelernt ha¬ 
ben, könnte dieser Bereich aus gepuf¬ 
ferten RAM-Speicherzellen bestehen. 
Das wäre aber sehr unsicher, da Batte¬ 
rien oder Akkus nicht ewig leben. Die 
gespeicherten Informationen wären in 
diesem Fall verloren. Deshalb ent¬ 
wickelte die Industrie sogenannte Fest¬ 
wertspeicher-Elemente, die ROMs. 


Sie haben den Vorteil, daß sie einmal, 
während Ihres Herstellungsverfahrens, 
übernommene Informationen ohne 
fortwährendes Refreshing oder Vor¬ 
handensein einer Versorgungsspan¬ 
nung speichern. Allerdings haben sie 
einen großen Nachteil: Die gespeicher¬ 
te Information kann nie mehr geändert 
werden. Das Einsatzgebiet solcher 
ROMs sind Steuerungen aller Art, bei¬ 
spielsweise von Floppy-Laufwerken, 
Speicherung von Firmware-Routinen 
oder wie in den Amstrad-CPCs die 
Aufnahme des Amstrad-BASIC. In der 
Industrie werden sehr viel Single- 
Chip-Computer mit kombinierten 
RAM/ROM-Speichern für die unter¬ 
schiedlichsten Steuer- und Regelungs¬ 
aufgaben eingesetzt. 
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PROGRAMMABLE 
READ ONLY MEMORY 
(PROM) Programmierbarer 

Nur-Lese-Speicher 

Damit sind wir bei einer Weiterent¬ 
wicklung der ROMs angelangt. Die 
PROMs haben den Vorteil, daß die 
Programmierung nach Herstellung der 
noch “jungfräulichen“ ICs erfolgen 
kann. Dies ist vorteilhaft bei kleineren 
Serien oder bei Serien, deren genaue 
Stückzahl man noch nicht von vornehe- 
rein kennt. Doch auch die PROMs las¬ 
sen sich leider nach der Programmie¬ 
rung nicht mehr löschen. Bei vielen 
Änderungen an der Software führt dies 
natürlich zu hohen Hardwarekosten. 

ERASABLE PROGRAMMABLE 
READ ONLY MEMORY 
(EPROM) Löschbare 
programmierbare Nur-Lese- 
Speicher 

Damit sind wir bei den Bausteinen an¬ 
gelangt, die sich auch für den Einsatz 
von Hobby-Programmierern eignen. 
Sie können im Gegensatz zu den beiden 
vorher beschriebenen Arten beliebig 
oft gelöscht und neu programmiert 
werden. 

Welches Geheimnis steckt nun dahin¬ 
ter? Um dies zu lösen, müssen wir uns 
ein wenig mit der Halbleitertechnolo¬ 
gie von Feldeffekt-Transistoren be¬ 
schäftigen, denn jede Speicherzelle so 
eines Speicherbausteins wird durch ei¬ 
nen FET dargestellt. Die Wirkungs¬ 
weise beruht auf der Speicherung von 
elektrischen Ladungen, ähnlich wie bei 
einem Kondensator. Der große Unter¬ 
schied ist aber, daß diese Ladungen 
durch geeignete Maßnahmen konser¬ 
viert bleiben und nicht langsam abge¬ 
baut werden. Der Speicherprozeß dau¬ 
ert nicht ewig lange, aber keine Angst, 
einige Jahre dauert es schon, bis Fehler 
auftauchen können. 

Was wird durch die Programmierung 
im FET bewirkt? Durch Anlegen der 
Programmierspannung (21 - 25 Volt) 
an den jeweils ausgewählten FET wird 
die Isolation, die das Abfließen der La¬ 
dung verhindern soll, überwunden, das 
Gleichspannungsfeld wird erzeugt. Da 
fiese Ladung aber wesentlich geringer 
als die Programmierspannung ist, kann 
sie >elbst die Isolierschicht nicht über- 
■a ir.den. die Ladung bleibt erhalten, die 
Information gespeichert. 

Da man mit einer Vielzahl von einzel¬ 
ne- Speicherplätzen allein noch nicht 


sehr viel anfangen kann, beinhaltet ein 
EPROM-IC neben der Speichermatrix 
auch noch Puffer für die Adreßleitun¬ 
gen und Ausgänge sowie Decoder für 
die Ansteuerung der Speicherplätze. 
Die Abb. 1 zeigt das Blockschaltbild, 
das Schaltzeichen und die Anschlußbe¬ 
legung des EPROMS 27128, einem 
Baustein mit einer Kapazität von 
128KBit in Worten zu je 8 Bit oder 
16KByte * 8. 

Doch nun zum Löschvorgang. Wenn 
Sie schon einmal ein EPROM gesehen 
haben, wird Ihnen sicherlich das Fen¬ 
ster aus Quarzglas aufgefallen sein, 
welches sich in der Mitte der Chip- 
Oberseite befindet und bei program¬ 
mierten Chips mit einer lichtundurch¬ 
lässigen Folie abgedeckt sein sollte. 
Ihre Frage nach dem Warum ist be¬ 
rechtigt. Wie Sie wissen, beinhaltet das 
sichtbare Licht einen großen Anteil an 
UV-Strahlung. Dieser Anteil wird 
auch zum Löschen des EPROMS benö¬ 
tigt. Damit das Ganze aber nicht Wo¬ 
chen und Monate dauert, wenn sie bei¬ 
spielsweise Ihre EPROMs ungeschützt 
dem Licht aussetzen, bedient man sich 
zum gezielten Löschen einer stärkeren 


UV-Lichtquelle mit einer Wellenlänge 
von exakt 253,7 Nanometer. Bei einer 
Bestrahlungsintensität von 15 Wattse¬ 
kunden pro Quadratzentimeter beträgt 
die Löschzeit circa 20 Minuten. 

Der Programmierablauf 

Betrachten wir als Einleitung die Pin¬ 
belegung unseres Bausteinbeispieles 
27128, einem IC mit 28 Anschlußbein- 
chen (Abb. 1). Zur Ansteuerung der 
einzelnen Speicherzellen zum Be¬ 
schreiben (Programmierung) und zum 
Lesen stehen 13 Adreßleitungen (A0 
bis Al3) zur Verfügung. Ein- bzw. 
ausgegeben werden die Daten als 8-Bit- 
Worte auf den Datenleitungen OO bis 
07. Mit Hilfe der Steuerleitung CE 
(LO-aktiv) wird der Baustein aktiviert, 
sowohl zum Programmieren als auch 
später bei der Auswahl aus mehreren 
ROMs auf der Treiberplatine. Die 
Steuerleitung OE (LO-aktiv) dient zur 
Umschaltung des Datenpuffers für die 
Ein- oder Ausgabe der Datenworte. 
Neben der Betriebsspannung von +5V 
wird noch eine Programmierspannung 
benötigt, ihr Wert ist abhängig vom 
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Abb. 3: Der 
EPROM-Program- 
mer von Dobbertin. 


EPROM-Typ. Er beträgt für den 
27128er Baustein 21 Volt. Zusätzlich 
benötigt unser EPROM noch einen ne¬ 
gativen Impuls, der Zeitpunkt und 
Dauer des Programmiervorgangs steu¬ 
ert. Er wird über den Pin 27 des ICs 
(PGM, ebenfalls LO-aktiv) einge¬ 
speist. 

Den Ablauf der Programmierung ma¬ 
chen wir uns am besten mittels eines 
Zeitdiagramms deutlich (Abb. 2 ). Der 
Zeitpunkt (X) markiert das Einsetzen 
des IC in die Programmierfassung. Sie 
sehen, daß an diesem Punkt das IC 
noch nicht aktiviert ist und auch die 
Programmierspannung nicht durchge¬ 
schaltet ist. 

Einige Millisekunden später wird das 
IC aktiviert (CE) und die Program¬ 
mierspannung wird durchgeschaltet. 
Gleichzeitig wird die Adresse ange¬ 
steuert und die Übernahmedaten stehen 
an. Es wird wiederum noch einige Zeit 


gewartet, bis sich alle Pegel stabilisiert 
haben und dann tritt im Zeitpunkt (1) 
der Programmierimpuls PGM in Ak¬ 
tion, das Datenwort wird unter der aus¬ 
gewählten Adresse “eingebrannt“. 
Wiederum einige Millisekunden später 
wird überprüft, ob die gespeicherten 
Werte mit den einzuspeichernden auch 
wirklich übereinstimmen. Dazu wird 
mittels Impuls DE auf Auslesen umge¬ 
schaltet und die Daten verglichen (2). 
Das ganze Spiel wiederholt sich, bis 
alle Informationen übergeben und ein¬ 
gebrannt worden sind, was je nach 
Speicherkapazität schon eine gewisse 
Zeit dauern kann. 

Wir haben nun unser Programm im 
EPROM untergebracht. Doch wie ent¬ 
locken wir unserem Speicher die Infor¬ 
mationen wieder? 

Nun, wie Sie inzwischen wissen, haben 
wir die Möglichkeit mittels der Signale 
CE und DE ein EPROM auszuwählen 



Abb. 1: Die Innenschaltung eines EPROM’s des Typs 27128. 


und auf Datenausgabe zu schalten. 
Wenn wir nun noch im richtigen Zeit¬ 
raster die uns interessierenden Spei¬ 
cherzellen anwählen, lassen sich die 
Informationen auslesen und in den 
RAM-Speicher oder ein anderes Spei¬ 
chermedium übertragen. Denkbar ist 
auch eine direkte Übertragung von ei¬ 
nem EPROM in ein anderes. 

Wer sich für den Eigenbau eines Pro¬ 
grammiergerätes interessiert, den 
möchten wir auf das Heft 6/87 von PC 
International aufmerksam machen. Im 
Rahmen der Reihe Schneiderware wird 
der Eigenbau eines EPROM-Program- 
miergerätes mit zugehöriger Treiber¬ 
software ausführlich beschrieben. 

Wer die Wahl hat... 
S peicherauswahl ä la CPC 

Wir wollen uns nun den Besonderhei¬ 
ten der CPCs in bezug auf die Auswahl 
vom ROM-Speicherbausteinen befas¬ 
sen. Der Z80-Prozessor mir seiner 
Adreßbus-Breite von 16 Bit kann nur 
einen Speicherbereich von maximal 
64KByte abdecken. Beim 6128 mußte 
deshalb schon mit einem Trick, d.h., 
einem speziellen Chip für das “Ban¬ 
king“ gearbeitet werden. Nun besitzt 
der CPC aber noch ein 32KByte ROM 
mit dem Betriebssystem und dem BA¬ 
SIC-Interpreter und einem zweiten 
ROM, welches die Diskettenverwal¬ 
tung beinhaltet. Wie geschieht hier nun 
die Auswahl? 

Dreh- und Angelpunkt für diese Aufga¬ 
ben ist wieder ein spezielles IC, das 
GATE-ARRAY. Über die Portadresse 
7F(hex) können Sie das Register, wel¬ 
ches für das Umschalten der unteren 
und oberen Speichersegmente zustän¬ 
dig ist, beeinflussen. Damit sind wir 
fast am Ziel unserer Wünsche, nämlich 
der Auswahl eines unserer eigenen zu¬ 
sätzlichen EPROMS. Haben wir erst 
einmal das obere Speichersegment an¬ 
gewählt, so können wir mit Hilfe der 
Betriebssystem-Routine RST3 - FAR 
CALL einen von maximal 252 zusätzli¬ 
chen 16kByte-ROMS auswählen. Da¬ 
mit wir aber nicht auf Programme von 
max. 16KByte Länge beschränkt sein 
müssen, stellt uns das Betriebssystem 
noch eine weitere Routine zu Verfü¬ 
gung. Mit RST 2 -SIDE CALL, kön¬ 
nen wir zum jeweils nächsten oder 
übernächsten Speicherbereich springen 
und uns danach mittels einer geeigne¬ 
ten Software Daten ins RAM übertra¬ 
gen lassen. 

Weiter wollen wir Sie nicht mit Details 
langweilen. Wen das Thema dennoch 
interessiert oder wer sich selbst eine 
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»Databox Einzelbestellung« 



CPC 

CPC 

Joyce 

1 PC 1512 

Ausgabe | 

Kassette 

3" Diskette 

3“ Diskette 

| 51/4" Diskette 


Noch vorrätige Ausgaben der Databox aus den früheren Jahrgängen 
können im günstigen 6er Pack bezogen werden 
Bitte beachten Sie unsere Werbung in dieser Ausgabe 


1/87 

□ 14,- DM 

□ 24, - DM 

□ 24. - DM 

— 

2/87 

□ 14,- DM 

□ 24, - DM 

□ 24. - DM 

— 

3/87 

□ 14,- DM 

□ 24, - DM 

□ 24, - DM 

— 

4/87 

D 14,- DM 

C 24, - DM 

□ 24,- DM 

□ 24, - DM 

5/87 

□ 14,- DM 

C 24, - DM 

□ 24, - DM 

□ 24, - DM 

6/87 

□ 14,- DM 

□ 24, - DM 

□ 24, - DM 

□ 24, - DM 

7/87 

□ 14,- DM 

□ 24. - DM 

□ 24, - DM 

□ 24, - DM 

8/87 

□ 14,- DM 

□ 24, - DM 

□ 24, - DM 

□ 24, - DM 

9/87 

□ 14,- DM 

□ 24, - DM 

□ 24, - DM 

□ 24, - DM 

10/87 

□ 14,- DM 

□ 24, - DM 

□ 24, - DM 

□ 24, - DM 

11/87 

□ 14,- DM 

□ 24, - DM 

□ 24. - DM 

□ 24, - DM 

12/87 

□ 14,- DM 

□ 24, - DM 

□ 24.- DM 

□ 24,- DM 

1/88 

□ 14,- DM 

□ 24, - DM 

□ 24. - DM 

□ 24, - DM 

2/88 

□ 14.- DM 

□ 24,- DM 

□ 24, - DM 

□ 24, - DM 

3/88 

□ 14.- DM 

□ 24,- DM 

□ 24, - DM 

□ 24, - DM 

4/88 

□ 14.- DM 

□ 24,- DM 

□ 24. - DM 

□ 24, - DM 

5/88 

□ 14,- DM 

□ 24, - DM 

O 24. - DM 

□ 24,- DM 

6/88 

□ 14,- DM 

□ 24, - DM 

□ 24, - DM 

□ 24, - DM 

7/88 

□ 14.- DM 

□ 24, - DM 

□ 24, - DM 

□ 24. - DM 

8/88 

□ 14,- DM 

□ 24, - DM 

□ 24. - DM 

□ 24. - DM 

9/88 

□ 14,- DM 

G 24,- DM 

□ 24,- DM 

□ 24, - DM 


+ Porto/Verpackung 

(Inland 3,- DM, Ausland 5,-DM> _ DM 

Gesamtbetrag: _ DM 

□ Diesen Betrag zahle ich mittels des beigefügten Verrechnungsschecks 

□ Ich bitte um Lieferung per Nachnahme (nur innerhalb der BRD). 

(Bei Nachnahme kommt zum o.g. Betrag noch die Nachnahmegebühr hinzu) 


Datum 


Unterschrift (bei Minderjährigen Unterschritt des gesetzl Vertreters) 


Iheft-Be 
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Abb. 2: Anhand da Impulsdiagramms läßt sich leicht darstellen, was beim Brennen und Auslesen geschieht 


ROM-Erweiterungsplatine bauen 
möchte, dem sei PC International Heft 
04/87 empfohlen. Wir verlassen nun 
die graue Theorie und wenden uns den 
Geräten zu, die als Zubehör auf dem 
Markt erhältlich sind. 

Programmiergeräte, 
EPROM-Boards und 
Software. 

Interessante Erweiterungen 

für die AMSTRAD CPCs 

Der EPROM-Programmer 4003 von 
Dobbertin 

Zunächst zur Hardware: Das Program¬ 
mierset besteht aus zwei Teilen, dem 
Programmiergerät selbst und einer In¬ 
terface-Karte, einer seriellen Schnitt¬ 
stelle, welchen den Computer und den 
Programmer verbindet. Zur Sicherheit 
der übertragenen Daten werden diese 
vor Weitergabe an das EPROM im 
Programmiersockel von Schieberegi¬ 
stern zwischengespeichert. Zwei LEDs 
im Gehäuse des Programmiergerätes 
zeigen den Status an, d.h., ob die Pro¬ 
grammierspannung anliegt und ob ein 
Wechsel des Speicherbausteins vorge¬ 
nommen werden kann. Die Program¬ 
mierspannungen übrigens werden im 
Gerät selbst erzeugt. 

Zu einer guten Hardware muß zwangs¬ 
läufig auch eine gescheite Software ge¬ 
hören, will man keinen Reinfall beim 
Verkauf erleben. Das Steuerpro¬ 
gramm, das wahlweise auf Kassette, 
oder 3“ und 5 1/4“ Diskette angeboten 
wird, kann sich sehen lassen. Durch 
eine komfortable Menüsteuerung 
reicht ab und zu ein flüchtiger Blick ins 
Benutzerhandbuch, wenn es mal wirk¬ 
lich nicht mehr weiter geht, ansonsten 
ist es nahezu überflüssig. Das Steuer¬ 
programm wurde in Assembler ge¬ 
schrieben und erkärt sich nahezu 
selbst. Das Hauptmenü beinhaltet unter 
anderem folgende Punkte: 

— RAM-Bereich ändern 

— Einlesen EPROM > RAM 

— Löschtest EPROM 

— EPROM programmieren 

— Vergleichen EPROM < > RAM 

— Lesen von Diskette 

— Schreiben auf Diskette sowie eine 
Anzahl an Drucker-, Kasset¬ 
ten/Disketten und Speicheroptio¬ 
nen. Zusätzlich wird in einer Sta¬ 
tuszeile jeweils der EPROM-Typ, 
Start- und End-Adresse des 
EPROM s, RAM-Speicheradresse 
Disketten- und Druckerstatus ange¬ 
zeigt. 


Folgende ICs lassen sich problemlos 
mit dem Programmer brennen: 

- 2716, 27C16, 2732, 2732A, 27C32 

- 2758, 2764, 2764A, 27C64, 27128 

- 27128A, 27C128, 27256, 27C256 

- D27256, 2508, 2516, 2532, 2564 

- X2804A, X2816A, X2864A, 48Z02 

EPROMs brennen mit 
dem Philosoft Betriebssystem 

Das Philosoft-Betriebssystem, eine 
Platine mit Software im EPROM wird 
mit dem Erweiterungsport der CPCs 
verbunden. Neben einem Texteditor, 
einem Assembler für mehrere Prozes¬ 
soren und einem Telefonmodem-Pro¬ 
gramm beinhaltet das EPROM auch 
ein Steuerprogramm zum Brennen von 
EPROMs. Zu diesem Zweck befindet 
sich ein Textool-Stecker mit auf der 
Platine. Die Auswahl der Program¬ 
mierspannungen, sowie die Voreinstel¬ 
lung der EPROM-Typen geschieht 
nicht nur per Software, sondern durch 
Stecken verschiedener Brücken auf der 
Platine. Die Kombinationen sind im 
Handbuch beschrieben. Folgende IC 
lassen sich programmieren: 

- 2716 - 2732 - 2764 - 27128 - 27256 
Per Software stehen folgende Befehle 
zur Verfügung: 

- EPROM-Typ wählen SELECT 
<typ> 

- EPROM lesen READ <EPROM- 
Anfadr > , < EPROM-Endadr > , 

< RAM-Anfadr > 


- EPROM programmieren PROG 

< RAM-Anfadr > , < RAM-En- 
dadr>, <EPROM-Anfadr> 

- EPROM prüfen VER <EPROM- 
Anfadr> , < EPROM-Endadr > , 

< RAM-Adr > 

Die etwas einfachere, nicht so komfor¬ 
table Bedienung hängt mit der Vielfalt 
der Möglichkeiten zusammen, die dem 
Anwender des Philosoft- Betriebssy¬ 
stems zur Verfügung stehen. 

Das waren zwei Beispiele von Pro¬ 
grammiergeräten für die CPC-Familie. 
Wenden wir uns nun den Platinen zu, 
die programmierte EPROMS aufneh¬ 
men können und eine Schnittstelle zwi¬ 
schen den integrierten Schaltkreisen 
und dem Erweiterungsport der CPCs 
bilden. 

Der Veteran: 

Die ROMBO ROM-Box 

Für alle, denen die ROM-BOX noch 
nicht bekannt sein sollte, hier die Ei¬ 
genschaften in Kurzform: 

Die Platine in der schwarzen Box kann 
maximal acht EPROMS oder ROMS 
aufnehmen. Die einzelnen IC-Steck¬ 
plätze werden mittels eines “Mäusekla¬ 
viers“, sprich DIP-Schalter, ein- oder 
ausgeschaltet. Zusätzlich befindet sich 
ein Jumper auf der Platine. Er ist für 
die Auswahl der ROMs bei Anschluß 
einer weiteren Box zuständig. Die 
ROMs der ersten Box können somit als 
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Nr.O bis Nr.7 und die der zweiten Box 
als Nr. 8 bis Nr. 15 angesprochen wer¬ 
den. Einige TTL-lCs sorgen für den 
reibungslosen Austausch von Daten. 

Für den Anschluß an den CPC6128 
wird ein Adapterkabel benötigt. 


Dadurch, daß der Erweiterungsport 
durchgeschleift wurde, läßt sich beim 
CPC 464 ein Floppylaufwerk ohne 
Probleme zusätzlich anschließen. 

Eine Anleitung in englischer Sprache 
liegt der ROM-Box bei. 


Der zweite Streich: 
EPROM-Karte 224 

Diese Karte, aus dem Hause Dobber- 
tin, besitzt sieben Steckplätzc, die mit 
den EPROM-Typen 2764, 27128 und 
27256 bestückt werden können. Da der 
letzte Typ 32KByte Speicherkapazität 
beinhaltet, stellt er theoretisch zwei 
EPROMS dar. Mittels Steckfeld kön¬ 
nen so bei sieben Steckplätzen bis zu 
vierzehn ROMs ausgewählt werden. 
Der Erweiterungsport ist an der Rück¬ 
seite der Karte zum Anschluß zusätzli¬ 
cher Peripheriegeräte herausgeführt. 

Je nach Rechnertyp ist ein spezielles 
Verbindungskabel an der Erweite¬ 
rungskarte angeschlossen, ein Adapter 
entfällt mithin. Hervorzuheben ist 
noch, daß sich im Deckel des Gehäuses 
eine Tabelle mit der Belegung des 
Steckfeldes befindet. 

ROM-Software 

Wir kommen nun zum letzten Teil un¬ 
seres Marktbummels, und zwar zu der 
ROM-Software. Speziell in England 
scheint ein großer Abnehmerkreis für 
ROM-Software zu bestehen, deshalb 
sind fast alle Programme auch nur in 
englischer Version zu bekommen. 

TIME-ROM + 

Das TIME-ROM besteht aus einem 
“Huckepack“, dem eigentlichen Uh¬ 
renbaustein und einem 27128 mit der 
Software. Einmal installiert stehen Ih¬ 
nen 18 neue RSX-Befehle zur Verfü¬ 
gung, die sich fast alle auf die Zeit be¬ 
ziehen, so sind Befehle zur Zeiteinstel¬ 
lung, für eine Stoppuhr, zur Oszillator- 
Kontrolle, für ein Stundensignal und 
für einen Wecker enthalten. 

Zum guten Ende gibt es noch folgende 
Befehle: BIGWATCH zeigt auf dem 
Bildschirm eine Digitaluhr mit großen 
Zeichen, STOPWATCH eine grafi¬ 
sche Stoppuhr, deren Knöpfe über die 
Cursortasten bedient werden können. 
HELP listet alle vorhandenen ROMs 
auf, HELP.x zeigt die Befehle des 
ROMs mit der Nummer x an und RO- 
MOFF,y schaltet das ROM mit der 
Nummer y ab. Das TIME-ROM kann 
auf allen CPCs eingesetzt werden. 

ALPHA-ROM, 
eine RSX-Erweiterung 

Aus deutschen Landen, eine Seltenheit 
bei ROM-Software, ist das ALPHA¬ 
ROM. Es stellt 26 neue RSX-Befehle 


Marktübersicht 



EPROMs, Programmiergeräte, EPROM-Karten, EPROM-Software 

EPROMS (alle gängigen Typen) 

Völkner Elektronic 
Postfach 5320 

3300 Braunschweig 

Tel. 0531 / 8762-111 

Preise: 

ab ca. 14.- DM 
pro Stück 

PROGRAMMIERGERÄT 3003 
inklusive Kabel und 

Software auf Kassette 

Software auf Diskette 
gegen Aufpreis 

Dobbertin Industrie 
Elektronik 
Brahmsstraße 9 

6835 Brühl 

Tel. 06202 / 71417 

Preise: [DM] 

464 : 289,50 
Bausatz: 239,— 
6128: 319,50 
Bausatz: 269,— 


PR8-Soft 

Klaus-M. Pracht 
Postfach 500 

8702 Margetshöchheim 
Tel. 0931 / 464414 

Preise s.o. 
keine Bausätze 

ROMBO ROM-BOX 

PR8-Soft 

464 : 118,-- 

6128: 142,-- 

EPROM-Karte 224KByte 

Dobbertin Industrie 
Elektronik 

464 : 145,-- 

6128: 169,-- 


PR8—Sof t 

Preise s.o. 

TIME-ROM 

Dobbertin 

135,-- 


PR8-Soft 

139,-- 

PROTEXT 

{Textverarbeitung) 

PR8-SOFT 

124,-- 

PROMERGE PLUS 
(Mailmerge zu PROTEXT) 

PR8-SOFT 

114,-- 

MAXAM 

(Z80-Macro-Assembler) 

PR8-Soft 

124,-- 

BCPL 

(Strukt. Programmiersprache) 

PR8-Soft 

124,-- 

UTOPIA 

(CPC Werkzeugkiste) 

PR8-Soft 

94,-- 

VIDI CPC 

(Software zum Digitizer) 
incl. Hardware & Kabel 

PR8-S0ft 

368,-- 

EPROM-Löschgerät 

Völkner Elekronic 

99,50 

Netzteil dazu 

Völkner Elekronic 

8,95 


22 PC 9’88 














Bericht—| 


zur Verfügung, darunter zur ROM- 
Kontrolle, verbesserte BASIC-Befehle 
für Grafik, Druck und Programmie¬ 
rung, sowie für das Bank-Managing 
von Speichererweiterungen. Das AL¬ 
PHA-ROM wird von Dobbertin Indu¬ 
strie Elektronik vertrieben. Dort ist 
auch der Verkaufspreis zu erfahren. 

RQM-Software aus England 

Beginnen wollen wir mit PROTEXT, 
einer kompletten Textverarbeitung für 
alle drei CPCs. Da die ROM-Software 
mit der auf Diskette voll identisch ist, 
möchten wir alle Interessenten auf un¬ 
sere Review im Heft 6/87 von PC In¬ 
ternational verweisen. Der Vorteil der 
EPROM-Version ist, daß der gesamte 
Speicher (CPC6128: 80KByte rein für 
Texte zur Verfügung steht. Ein deut¬ 
sches Handbuch ist erhältlich! 

PROMERGE PLUS ist eine Erweite¬ 
rung zu PROTEXT. Serienbriefe 
schreiben wird zur Kleinigkeit. Dane¬ 
ben bietet PROMERGE PLUS noch 
eine Taschenrechnerfunktion und CUT 


& PASTe an. Damit lassen sich mehr¬ 
spaltige Texte erzeugen. Während der 
Drucker arbeitet, können bereits ein 
anderer Text editiert oder Textteile 
zwischen zwei Dateien hin und her ko¬ 
piert werden. 

MAXAM ist ein voll menügesteuertes 
Editor/Monitor/Assembler-Paket un¬ 
ter AMSDOS. Es ist leicht zu erlernen 
und einfach zu bedienen. Leider ist das 
Handbuch nur in englischer Sprache 
erhältlich. 

BCPL ist eine Programmiersprache, 
die sich obwohl vielfach angewandt, 
nicht durchsetzen konnte. Das Pro¬ 
grammpaket beinhaltet die Software 
auf Diskette, sowie auf EPROM und 
ein englisches Handbuch UTOPIA 
schließlich ähnelt dem ALPHA-ROM, 
bietet jedoch noch einiges mehr. Es 
stellt insgesamt 50 RSX-Befehle zur 
Verfügung, verträgt sich ausgezeichnet 
mit weiteren ROMs auf einer Karte und 
listet beispielsweise auch deren Kom¬ 
mandos auf. Weiterhin läßt sich mit 
UTOPIA ein Grafik-Bildschirm in 27 


Schattierungen auf einem EPSON- 
kompatiblen Drucker ausgeben. Die 
Funktionstasten sind mit allerlei nützli¬ 
chen, aber auch abschaltbaren Kom¬ 
mandos belegt. Auch Speicherinhalte 
des RAM oder der ROMs können aus¬ 
gelesen werden. Wie Sie vielleicht 
schon erkannt haben, bietet UTOPIA 
eine Fülle von “Werkzeugen“ für alle 
CPCs. 

Damit sind wir am Ende unseres Be¬ 
richts über EPROMS, ihre Program¬ 
mierung, ihre Ansteuerung und Soft¬ 
ware. 

Vielleicht haben Sie ja Lust bekom¬ 
men, sich selber an ein EPROM Pro¬ 
jekt zu wagen, genug Lehr-und 
Übungsmalerial haben wir Ihnen ja 
vorgestellt. Mit einem EPROM läßt 
sich sogar mancher Mangel eines Com¬ 
puters beheben. 


(Hans-Wemer Fromme/jb) 


Computer Shop 


Amstrad 

PC464 mit Monitor ab DM 399,- monatlich ab DM 20,- 
Color DM699,- monatlich ab DM 24,- 

- 64 KB RAM 

- Datenrecorder 

- BTX Modul 

- Stereoausgang 

- Grafik 640x200 

Drucker DMP 2160_DM 499,- monatlich ab DM 25,- 

PC6128 mit Monitor ab DM 799,- monatlich ab DM 28,- 

Color DM 1099,- monatlich ab DM 30,- 

- 128 KB RAM 

- 3“ Diskettenlaufwerk 

- 48 KB ROM 

- BTX Modul 

- Gl Sound Generator Chip 


PCW8256 ab DM 999,- monatlich ab DM 28,- 

Lieferumfang: 

- 12" Monitor, grün 

- 9 Nadel Matrix Drucker 

- LocoScriptl, Textverarbeitung, CP/M Plus, GSX, Basic, Dr, Logo 

- eingebautes 3“ Laufwerk, 180 KB/Seite 

PCW8512 ab DM 1299,- monatlich ab DM 36,- 

wie oben, nur mit > 

- 2. Laufwerk, 720 KB 

- und 512 KB RAM 


PC1512 ab DM 1299,- monatlich ab DM 36,- 

- 512 KB RAM 

- 5 1/4" Floppy. 360 KB 

- MS-DOS 3.2 und DOS Plus 

- Schnittstellen: Seriell, Parallel, Lichtgriffel, Maus 

- Software: GEM Desktop, GEM Paint, Locomotiv Basic 

- und anderes mehr 


Modell: 

a.) 1 x 5 1/4“ Laufwerk/Monochrom-Monitor 
b)2 x 5 1/4“ Laufwerk/Monochrom-Monitor 
c.) 1 x 5 1/4“ Laufwerk/Farb-Monitor 
d ) 2 x 5 1/4" Laufwerk/Farb-Monitor 


DM 1299,- 
DM 1599,- 
DM 1699,- 
DM 1999,- 


PCW9512 Textsystem DM 1699,- monatlich DM39,- 
- 3“ Laufwerk, Typenrad-Drucker, Text-Software, s/w Bildschirm 


Software 


Aliens 28,95 

The Final-Matrix 27,90 

Palitron 27,95 

Tai-Pan 24,70 

PSI-5 38,20 

Trailblazer 26,20 

Yie ar Kung Fu II 28,90 

BMX Simulator 8,90 

Convoy Raider 26,20 

Star Raiders 29,95 


für PC GFA-Fakt nur DM 148,- 


Football 

22,- 

Jack II 

28.90 

Nemesis 

29,90 

Crystal Castles 

33,- 

Academy 

35,70 

Howard the Duck 

29,90 

Cop-Our 

18,- 

Short Circuit 

23,10 

Shao Lins Road 

25,- 

Quartet 

25,- 


Wir haben jedes System vorrätig und liefern nach Bestelleingang 
sofort aus. Versandkostenanteil beträgt pauschal 10,- DM. Die Lie¬ 
ferung erfolgt außer bei (Teilzahlung) nur per Nachnahme. 


Ladenlokal: Öffnungzeiten 9.00 - 18.30 Uhr 
Reparaturservice 

Telefonische Bestellung bis 22,00 Uhr 


Computer Shop 

Josef-Schregel-Str. 52 

5160 Düren 

Tel. (024 21) 1 03 79 


Wir übernehmen auch die Übersetzung von Software in 59 
Sprachen, auch anderes wird übersetzt. 
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Wer wagt, gewinnt!! 

Leser sagen ihre Meinung 

Computerzeitschriften leben nicht nur für ihre Leser, sie leben auch von der Mei¬ 
nung ihrer Leser über die Zeitschrift an sich. Falls Sie immer schon einmal den 
Wunsch hatten, uns Ihre Meinung über die PC AMSTRAD International kund¬ 
zutun, hier ist die Gelegenheit dazu. Alles was Sie dazu brauchen, ist ein Kugel¬ 
schreiber, ein Briefumschlag, eine 80 Pfennig-Marke und zehn Minuten Ihrer 
kostbaren Zeit. Damit sich Ihr Aufwand aber auch lohnt, haben wir eine Menge 
an attraktiven Preisen zur Verfügung, und zwar für jeden Rechner-Typ. 


Eine Computerzcitschrift wie die PC AM¬ 
STRAD International soll für ihre Leser da- 
scin; Informationen, Aktuelles, Program¬ 
me, sowie das Neueste auf dem Software- 
Markt, all das soll Ihnen, verehrte Leser, 
jeden Monat wieder zur Verfügung stehen. 

Eine Zeitschrift kann aber nur dann gut 
sein, wenn sie auf Anregungen, Informa¬ 
tionen, Meinungen ihrer Leser eingeht. 
Auf der nächsten Seite finden Sie eine Rei¬ 
he von Fragen, die sieh in erster Linie mit 
unserer Zeitschrift beschäftigen. Sie sollten 
sich diese Fragen zuerst in aller Ruhe 
durchlesen, und dann beantworten. Auf 
diese Weise können Sie uns Ihre Meinung, 
Ihre Ansichten, Ihre Kritik, aber auch Ihre 
Anregungen mitteilen. Wichtig ist am Ende 
auch, daß Sie uns Ihre Adresse mitteilen, 


diese wird von uns nur zu internen 
Zwecken gespeichert; falls Sie einer der 
glücklichen Gewinner sein sollten, müssen 
wir ja auch wissen, an wen wir das Präsent 
schicken sollen. Der Datenschutz bleibt 
also auf jeden Fall erhalten. 

Kommen wir nun zum Anreiz des Ganzen, 
zu den Preisen. Als erster Preis winkt hier 
ein funkelnagelneuer PCW 9512, gestiftet 
von der Firma AMSTRAD, in deren Ge¬ 
schäftsräumen in Neu-Isenburg auch die 
Preisverleihung stattfinden wird. Aber 
nicht nur dieser Rechner, sondern noch vie¬ 
le andere Preise warten darauf, zu Ihnen 
kommen zu können. In unserem Gewinn¬ 
pool warten auf Sie: 

Tolle Programme, wie MICRO-DESIGN, 
DISCOLOGY, MACRO-PACK Z80, 


Bei den folgenden Firmen möchten wir 
uns für die Bereitstellung der Preise be¬ 
danken: 

1. Werder Nachrichtentechnik, Hamburg 

2. Dobbertin GmbH, Brühl 

3. Martin Kotulla, Nürnberg 

4. PR8-Soft, Margetshöchhcim 

5. BFS — Büro für Software- 
Entwicklung, Bergneustadt 

6 DMV-Softwarevertricb 

7. RSE - Reinhard Schuster Computer, 
Castrop-Rauxel. 

CP/M-Hilfsprogramme für die CPCs, BU¬ 
SINESS-STAR, COMAC-KASSE, LO- 
COSCRIPT 2. LOCOKEY, LOCOFONT 
für die PCWs (JOYCE), KUBUS-Rech- 
nungswesen, ETM-Etikettendruckpro- 
grarnm, TEXTMAKER für die PC-Rech- 
ner, sowie 3x3 Programme nach freier 
Wahl. 

Druckerreinigungs-Set, Disketten-Reini- 
gungs-Set für 3“-Disketten, Farbbänder für 
die gängigsten Drucker, Time-ROM-Mo- 
dul; 5 Software-Gutscheine zu DM 100, -, 
5 Software-Gutscheine zu DM 50, — , 
3 Joysticks, diese Preise gehören ebenso zu 
unserem Pool, und Sie haben die Chance, 
einen dieser Superpreise zu gewinnen. 

Aber nun sind Sie erst einmal gefragt. 


Der Computer-Partner 


3”.p\S^ 




^ eon 'Ä 

ien d®' 9 .^,e und 
ue \\eR^ o, 5 ow.e 

»5Ö& 


'2Tr>r,lE 


wPW ' ö mrt««» ,# ‘ Be ' l\ -SC«»"« - El npl«v 

-Ssss^r 

9 BeC j, e nunO 

-Wn^'Ä Milo«*»- 

ISS3***E. 


...Tu^TOREN 


c,Bicn 


\ T,a.n.a'® n = , 

-sss-s: 

CP C«8*,66*6« 8 


85,- 


i 3".pisk-^ 


JE35r nü 

JE 39,- PJ* 


dm«-! st 

ggga 

ss?*» 



ft»««*?*" 

Ke« 

'®' h Ä®"*’ e ' an9e 

«en —• , 

T0 , e itiei' 

49r 


p t O«0<' 

prospe« 

' eCPW ov 

iSsjr* 

C° m8C Vubo* 

jRt-Pasca' 

HftR °Pa” E 

1 



»Bft A Ti 

M-Tempeihol 



Ing. Wolfgang Müller u. Jürgen Kramke GBR 
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Quick-Bestellung:(030)7 52 91 50/60 
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Die Assemblerecke 

Kurze und lange Sprünge 

Herzlich willkommen zum Start unserer neuen Assembler ecke! Diese Rubrik 
wird in Zukunft allerlei Material für die Programmierung des CPC in Ma¬ 
schinensprache liefern, also z.B. Informationen zu den Z80-Befehlen und den 
Betriebssystem-Aufrufen, Tabellen und Übersichten, hilfreiche Subroutinen 
und raffinierte Programmiertricks... kurz gesagt alles, was der CPC-Insider 
braucht, um seine Grübelkiste bis zum letzten Bit in den Griff zu bekommen. 
Besonders möchten wir alle Assembler-Newcomer berücksichtigen, die im 
Zuge unserer Einsteigerserie ihre ersten Schritte in Richtung Maschinenpro¬ 
grammierung gewagt haben. Sie finden hier zusätzlich Hinweise zum Um¬ 
gang mit dem in Heft 6/88 abgedruckten CPC- Assembler, mit dem alle in die¬ 
ser Rubrik veröffentlichten Listings verarbeitet werden können. 


Unser erstes Thema sind die Sprungbe¬ 
fehle des Z 80, mit denen der gewiefte 
Assembler-Freund geniale Schleifen-, 
Verzweigungs- und Unterprogramm¬ 
strukturen konstruiert, die mitunter so¬ 
gar wirklich funktionieren. Der Be¬ 
fehlstabelle können Sie entnehmen, 
welche Mittel ihm dabei zur Verfügung 
stehen. 

Markierte Adressen 

Natürlich folgt auf Sprungbefehle wie 
JP oder CALL in Assembler keine BA- 
SlC-Zeilennummer, sondern eine 
Speicheradresse, an der das Programm 
fortgesetzt werden soll. Diese kann di¬ 
rekt angegeben werden (z.B. JP 
&A000); in Assembler - Listings findet 
man jedoch meistens an dieser Stelle 
eine Sprungmarke (Label). Das ist ein 
■-beliebiger Name, der symbolisch für 
e Adresse steht und beim CPC-As- 


sembler maximal sechs Buchstaben 
lang sein darf. Der zu einem Label ge¬ 
hörende Wert wird entweder zu Beginn 
des Programms mit der EQU-Anwei- 
sung festgelegt, oder er ergibt sich dar¬ 
aus, daß man eine bestimmte Pro¬ 
grammzeile mit einem Label als 
Sprungziel markiert. Hier als Beispiel 
eine kleine Endlosschleife: 
JO’ORG&AOOO 
20’TXTAUS EQU &BB5A 
30’ 

40 ’LDA, “X“ 

50 ENDLOS CALL TXT AUS 
60 ’JP ENDLOS 

&BB5A ist die Einsprungadresse einer 
Betriebssystem-Routine, die einen 
Buchstaben auf dem Bildschirm aus¬ 
gibt. Die Zeile 20 bewirkt, daß wir im 
weiteren Verlauf des Programms an¬ 
statt der Adresse, den Namen 
TXTAUS verwenden dürfen - der As¬ 
sembler weiß dann Bescheid! In Zeile 


40 wird das A-Register mit dem 
ASCII-Code des Buchstabens “X“ ge¬ 
laden, Zeile 50 sorgt für die Bild¬ 
schirmausgabe, und Zeile 60 wieder¬ 
holt das Ganze, bis sich jemand er¬ 
barmt und einen Reset ausführt - anders 
ist dieses Programm nicht zu beenden. 

Welche Adresse mit dem Label END¬ 
LOS verknüpft ist (d.h., an welcher 
Speicherstelle der CALL-Befehl nach 
der Übersetzung steht), braucht den 
Programmierer dabei überhaupt nicht 
zu interessieren; das erledigt alles der 
Assembler. Ohne diesen Luxus müßte 
man die Speicherstellen, die der LD- 
Befehl belegt, von der Startadresse 
&A000 aus abzählen... nein danke! In 
dieser Hinsicht ist der Assembler übri¬ 
gens ein ganzes Stück komfortabler als 
der BASIC-Interpreter des CPC, der es 
leider nicht erlaubt, Zeilen mit einem 
Namen einzuleiten und sie dann z.B. 
mit ’GOTO Ausgabe’ anzuspringen. 
Zu erwähnen wäre in diesem Zusam¬ 
menhang noch, daß der Assembler na¬ 
türlich einen Fehler meldet, wenn man 
ein Label anspringen will, daß im Pro¬ 
gramm nicht definiert wurde. Weiter¬ 
hin darf man kein Label doppelt defi¬ 
nieren, und auch auf gültige Befehls¬ 
wörter (wie etwa ADD) oder Register¬ 
bezeichnungen sollte man bei der 
Namensgebung lieber verzichten. 

Etwas problematisch sind für einen As¬ 
sembler mitunter Vorwärtssprünge; 
das Label für das Sprungziel taucht ja 
bei der Analyse des Quellprogramms 
erst ein Stück später auf. Der CPC-As¬ 
sembler kann in diesem Fall im Über¬ 
setzungsprotokoll den Hex-Code für 
die entsprechende Adresse noch nicht 
vollständig angeben; er setzt proviso¬ 
risch Nullbytes ein und markiert die 
Zeile mit einem Sternchen. Sobald das 
fehlende Label auftaucht, ergänzt er je¬ 
doch nachträglich im Maschinencode 
die fehlenden Bytes, so daß das Pro¬ 
gramm auf jeden Fall nach einem 
Durchlauf komplett im Speicher steht. 
Wer ein Listing mit vollständiger Co¬ 
deangabe wünscht, kann optional einen 
zweiten Durchlauf starten, bei dem alle 
Labels von vornherein bekannt sind. 

Etwas genauer sollen jetzt noch die As¬ 
sembler-Sprungbefehle betrachtet wer¬ 
den, die keine unmittelbare Verwand¬ 
schaft zu BASIC-Kommandos aufwei¬ 
sen. Zu dieser Kategorie gehören z.B. 
die indirekten Sprünge, bei denen nicht 
die Zieladresse selbst, sondern viel¬ 
mehr der Ort angegeben wird, an dem 
die Adresse zu finden ist. Hierbei kann 
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es sich um das HL, IX oder IY-Register 
handeln. Die Folge 
LDHL,(&A500) 

JP (HL) 

würde also z.B. einen Sprung zu der 
Adresse ausführen, die im RAM-Spei¬ 
cher bei &A500 eingetragen ist -und 
nicht etwa einen Sprung zur Adresse 
&A500 selbst, in diesem Fall hätte man 
die Klammem beim LD-Befehl weg¬ 
lassen müssen! Von den indirekten 
Sprüngen macht man gerne Gebrauch, 
wenn eine Sprungadresse wie in unse¬ 
rem Beispiel irgendwo im Speicher ab¬ 
gelegt ist oder sich erst während des 
Programmablaufs herausstellt. In BA¬ 
SIC ist es dagegen nicht möglich, mit 
GOTO zu einer Zeilennummer zu 
springen, die in einer Variablen steht! 
Meistens hilft man sich in solch einem 
Fall mit einer ON..GOTO-Konstruk- 
tion. 

Begrenzte Reichweite 

Eine weitere spezielle Form von 
Assembler- Sprungbefehlen stellen die 
sogenannten 'kurzen’ oder auch relati¬ 
ven Sprünge dar, die mit dem Kürzel 
JR bezeichnet werden (’Jump Relati¬ 
ve’, also keine Anspielung auf den be¬ 
kannten Fernseh-Fiesling!). Wie der 
Name schon andeutet, folgt auf diesen 
Befehl im Maschinencode keine abso¬ 
lute Zieladresse, sondern ein Byte, das 
eine Sprungdistanz im Bereich von 
-128 bis 127 angibt. Dieser Wert wird 
zum aktuellen Stand des Programm¬ 
zählers hinzuaddiert und auf diese Wei¬ 
se die Zieladresse des Sprungs relativ 
zur augenblicklichen Position ermit¬ 
telt. Da der Prozessor das JR-Kom- 
mando erst komplett abarbeitet, bevor 
er die Berechnung durchführt, steht der 
Programmzähler zu diesem Zeitpunkt 
schon auf dem folgenden Befehl. 

Dazu ein kleines Beispiel: 
Angenommen, an der Speicherstelle 
40000 steht der Befehl JR 22. Wo wird 
der Sprung also hingehen? Da JR plus 
Distanzangabe zwei Bytes belegt, wird 
von 40002 ausgehend gezählt, der 
Sprung landet also bei Adresse 40024! 
Das sieht auf den ersten Blick ziemlich 
kompliziert aus... aber wieder ist es 
der Assembler, der dem Programmie¬ 
rer bei diesem Problem hilfreich unter 
die Arme greift. Sie brauchen auf kei¬ 
nen Fall Speicherstellen abzuzählen, 
um eine relative Sprungdistanz zu er¬ 
mitteln; es reicht wie bei den 'langen’ 
Sprüngen eine Adresse bzw. ein Label, 
woraus der Assembler dann das Di¬ 
stanzbyte berechnet und korrekt in den 
Maschinencode einbaut. 


Der Programmierer merkt also kaum 
einen Unterschied bei der Verwendung 
von kurzen und langen Sprüngen, es sei 
denn, er überschreitet bei JR den be¬ 
grenzten Wirkungsradius, worauf sich 
dann der Assembler bei der Überset¬ 
zung des Programms mit ’Offset zu 
groß’ beschwert. In diesem Fall müs¬ 
sen Sie JR durch ein normales JP erset¬ 
zen. Aber warum sollte man dann über¬ 
haupt auf relative Sprünge zurückgrei¬ 
fen? In der Praxis ergeben sich daraus 
zwei Vorteile: 

- Ein langer Sprung belegt 3 Bytes im 
Programm (Opcode plus 2-Byte- 
Adresse), JR plus Distanz jedoch 
nur 2 Bytes. Dadurch wird weniger 
Speicherplatz verbraucht. 

— Durch die Berechnung der Ziel¬ 
adresse relativ zur aktuellen Posi¬ 
tion ist der fertige Maschinencode 


im Speicher frei verschiebbar (relo- 
katibel), solange nur kurze Sprünge 
er wendet werden. 

Davon profitiert allerdings hauptsäch¬ 
lich der Anwender, der nur den reinen 
Maschinencode (z.B. in Form von ab¬ 
getippten DATA-Zeilen) in der Hand 
hat. Der Programmierer, dem ja das 
Assembler-Quellprogramm zur Verfü¬ 
gung steht, kann die Startadresse jeder¬ 
zeit problemlos ändern, indem er die 
ORG-Anweisung zu Beginn anpaßt 
und alles neu übersetzen läßt. 

Sprünge mit Wenn und Aber 

Richtig interessant wird das ’Gejumpe’ 
in Maschinenprogrammen allerdings 
erst mit den bedingten Sprüngen, die 
Verzweigungen und Schleifen ermögli¬ 
chen. Ob der Sprung stattfindet oder 


•— Abkürzungen 


adr: Zieladresse oder Label bei langem Sprung 
dis: Zieladresse oder Label bei kurzem Sprung 

{wird vom Assembler in relatives Distanzbyte umgerechnet) 
bed: Bedingung 


- . Z80-Sprungbefehl 

unbedingt 

bedingt 

verwandter 
Basic-Befehl 

Direkter Sprung 

JP adr 

JP bed,adr 

GOTO 

Indirekter Sprung 

JP (HL) 

JP (IX) 

JP (IY) 


(ON..GOTO) 

Unterprogramm- 

Aufruf 

CALL adr 

CALL bed,adr 

GOSUB, CALL 

Rücksprung aus 
Unterprogramm 

RET 

RET bed 

RETURN 

Relativer Sprung 

Schleifenbefehl 

JR dis 

JR bed,dis 

(nur Z,NZ,C,NC) 

DJNZ dis 

(GOTO) 

(FOR..NEXT) 


Bedingungen bei Sprungbefehlen 


Z - if Zero 
NZ - if Not Zero 

C - if Carry 
NC - if Not Carry 

M - if Minus 
P - if Plus 

PE - if Parity Even 
PO - if Parity Odd 


Ergebnis einer Operation = 0 
Ergebnis einer Operation <> 0 

Übertrag bei arithm. Operation 
Kein übertrag bei arithm. Operation 

Vorzeichenbit nach Operation gesetzt 
Vorzeichenbit nach Operation gelöscht 

Gerade Parität / Überlauf 
Ungerade Parität / kein Überlauf 


Abb. 1: Die Sprungbefehle des Z80-Prozessors und ihre richtige Handhabung können Sie dieser Ta¬ 
belle entnehmen. 
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nicht, ist dabei vom Status/bestimmter 
Bits im Flag-Register abhängig, die bei 
arithmetisch-logischen Operationen je 
nach Ergebnis gesetzt oder gelöscht 
werden. Eine BASIC- Konstruktion 
wie etwa 

IF a = 0 then GOTO... 
würde in Assembler so aussehen: 

CPO 
JP Z,adr 

CP (von compare, vergleichen) ist ein 
Befehl, der genau wie der Arithmetik¬ 
befehl SUB den angegebenen Operan¬ 
den von dem Inhalt des A-Registers ab¬ 
zieht. Da es jedoch für den Vergleich 
nur auf die Beeinflussung der Bits im 
Flag-Register ankommt, wird das Er¬ 
gebnis verworfen, also nicht in den 
Akku übernommen. Es ist bei CP ge¬ 
nau dann Null, wenn der Akkuinhalt 
und der Operand gleich sind. In diesem 
Fall wird intern das sogenannte Zero- 
Bit (Z-Flag) gesetzt und bewirkt in un¬ 
serem Beispiel, daß der Befehl JP 
Z,adr (jump if zero) zur angegebenen 
Adresse verzweigt. Soll der Sprung da¬ 
gegen nur ausgeführt werden, wenn die 
beiden Werte ungleich sind, so müßte 
man JP NZ,adr benutzen (jump if not 
zero). 

Ebenfalls sehr wichtig ist das Über¬ 
trags- oder Carry-Bit, das bereits in der 
letzten Folge unserer Einsteigerserie 
(siehe Heft 8/88) ausführlich zur Spra¬ 
che kam. Bei Subtraktionen und damit 
auch bei CP wird es gesetzt, wenn der 
Operand größer als der Akkuinhalt ist 
und deshalb das Ergebnis 0 unter¬ 
schreitet. Die Folge 
CPB 

CALL C,adr 

bewirkt z.B. einen Unterprogramm¬ 
aufruf, wenn die Bedingung A < B er¬ 
füllt ist. Ist der Akkuinhalt dagegen 
größer oder gleich dem Inhalt des B- 
Registers, so wird der CALL-Befehl 
ignoriert. Auch hierzu existiert natür¬ 
lich eine Umkehrung: CALL NC,adr 
verzweigt, wenn das Carry-Flag nicht 
gesetzt ist bzw. wenn in unserem Bei¬ 
spiel die Bedingung A r B gilt. 

Weitere Vergleichsoperationen lassen 
sich mit Hilfe des Vorzeichen- oder 
Signum-Flags durchführen. Nach einer 
Rechenoperation ist es immer mit dem 
höchstwertigen Bit (Vorzeichenbit) des 
Resultats identisch, also bei einem ne¬ 
gativen Ergebnis gesetzt und ansonsten 
gelöscht. Hieraus ergeben sich die Be¬ 
dingungen P (if Plus) und M (if Mi¬ 
nus). Sie lassen sich mitunter vorteil¬ 
haft nach Operationen einsetzen, die 
das Carry-Flag nicht beeinflussen. Das 
gilt z.B. für die 8-Bit-Zählbefehle INC 
und DEC. Hierein Beispiel: 


DEC C 
JP M,MIN US 

zählt das C-Register herunter und ver¬ 
zweigt zum Label MINUS, wenn dabei 
0 unterschritten wird. Vorsicht übri¬ 
gens mit den 16-Bit-Zählbefehlen (z.B. 
INC HL oder DEC IX): Sie beeinflus¬ 
sen die Flags überhaupt nicht! 

Das letzte Flag in unserer Sammlung 
hat zwei verschiedene Funktionen: 
Nach einer Rechenoperation zeigt es 
an, ob ein interner Übertrag das Vor¬ 
zeichenbit verfälscht hat, oder mit an¬ 
deren Worten, ob der zulässige Re¬ 
chenbereich für vorzeichenbehaftete 
Zahlen (z.B. -128.. 127 bei 8-Bit-Zah- 
len) überschritten wurde (Overflow- 
Flag). Nach anderen Operationen regi¬ 
striert es dagegen, ob die Anzahl der 
gesetzten Bits im Resultat geradzahlig 
oder ungeradzahlig ist (Parity-Flag). 
Diese Anwendung kommt allerdings 
sehr selten vor. 

Der Befehlstabelle können Sie entneh¬ 
men, wie sich die Bedingungen mit den 
verschiedenen Sprungbefehlen kombi¬ 
nieren lassen. Dabei fällt auf, daß bei 
den relativen Sprüngen (JR) die Aus¬ 
wahl auf die Konditionen Z, NZ, C und 
NC beschränkt ist. Dafür gibt es aber 
noch einen besonders praktischen 'kur¬ 
zen’ Sprungbefehl, bei dem die Bedin¬ 
gung gleich von vornherein eingebaut 
ist: DJNZ (decrement and jump if not 
zero) zählt automatisch das B- Register 
um 1 herunter und springt zur angege¬ 
benen Adresse, wenn das Ergebnis un¬ 
gleich Null ist. Dieser Befehl ersetzt 
also die Folge 
DECB 
JRNZ.adr 

Damit lassen sich natürlich wunder¬ 
schöne Schleifen programmieren: Die 
gewünschte Anzahl der Durchläufe 
wird ins B-Register geladen, und 
DJNZ springt solange, bis der Inhalt 
des B-Registers gleich 0 ist — also eine 
Art primitives FOR...NEXT auf Ma¬ 
schinenebene! 

Paßwortschutz mit Reset-Falle 

Wie die Sprungbefehle in der Praxis 
angewendet werden, können Sie aus ei¬ 
nem kleinen, aber sehr effektiven As¬ 
semblerprogramm ersehen, daß eine 
Paßwortabfrage realisiert. Es besteht 
aus zwei Schleifen: Die erste beginnt 
mit dem Label ERROR; hierhin springt 
das Programm immer zurück, wenn 
der unbefugte Benutzer einen falschen 
Buchstaben eingibt. Bei jedem Fehler 
wird das C-Register heruntergezählt. 
Es wird negativ, wenn die maximal er¬ 
laubte Anzahl Fehler überschritten ist, 
worauf die bedingte Sprunganweisung 


in Zeile 100 den Rechner zurücksetzt 

— gemein, aber wirkungsvoll! 

Die zweite Schleife beginnt mit dem 
Label NEXT und wird durch den 
DJNZ-Befehl gesteuert. CALL WAIT 
ruft die Systemroutine KM WAIT 
KEY (Adresse &BBI8) auf, die auf ei¬ 
nen Tastendruck wartet und die ASCII- 
Nummer des Zeichens im Akku zu¬ 
rückgibt. HL enthält immer die Spei¬ 
cheradresse des nächsten Paßwort- 
Buchstabens; mit CP (HL) wird der 
Akkuinhalt mit dem Buchstaben vergli¬ 
chen. In Zeile 200 wird das Paßwort 
mit der Assembler-Direktive DM im 
Programm eingebaut. Sie teilt dem As¬ 
sembler mit, daß der nachfolgende 
durch Anführungsstriche eingeschlos¬ 
sene Text in Form von ASCII-Codes in 
den Speicher geschrieben werden soll. 
Übrigens wird der Beginn des Wortes 
hier ebenfalls mit einem Label mar¬ 
kiert, damit die Adresse in Zeile 120 
ins HL-Register geladen werden kann 

— Labels sind also nicht nur für 
Sprungbefehle zu gebrauchen! 

Hier nun das Programm, daß Sie, wie 
gewohnt, mit dem CPC-Assembler be¬ 
arbeiten: 

10 Passwort schütz in Assembler 
20 ’;Aufrufmit CALL &A600 
30 ’ 

40 ’ORG &A600 

50 'WAIT EQU &BB18 ;KM WAIT KEY 
60 ’RESET EQU 0; Adresse fuer RESET 
70 ’ 

80 ’LD C,3 ;C = Max. Anzahl Fehlein¬ 
gaben 

90 ’ERROR DEC C ;Erlaubte Fehler-1 
100 'JP M.RESET;RESET wenn C negativ 
110 'LD B, 6 ;6 Buchstaben 
120 ’LD HL, WORT ;HL=Adresse 
Passwort 

130 ’NEXT CALL WAIT ;auf Taste warten 
140 'CP (HL); Vergleich Taste - 
Buchstabe 

150 'JR NZ,ERROR ;falsch, von vorne 
160’INC HL;Adressenaechster Buchstabe 
170 'DJNZ NEXT ;-> weiter im Text 
180 'RET;6 Richtige, zurueck zu BASIC 
190 ’ 

200 ’WORT DM “geheim“ ;Passwort im 
Speicher oblegen 

Zum Abschluß noch eine kleine Aufga¬ 
be: Nachdem Sie das Listing mit dem 
CPC-Assembler übersetzt und auspro¬ 
biert haben, sollte es Ihnen eigentlich 
gelingen, eine Erweiterung einzubau¬ 
en, die jede Fehleingabe mit einem 
warnenden Signalton quittiert. Dazu 
ein Tip: Laden Sie zu diesem Zweck 
das Steuerzeichen CHR$(7) in den 
Akku und benutzen Sie die Systemrou¬ 
tine TXT OUTPUT (CALL &BB5A)... 
und passen Sie gut auf, daß Sie nicht Ih¬ 
rem eigenen Paßwortschutz zum Opfer 
fallen' 

(Matthias Uphoff/jb) 
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HACKIT - 

Nicht nur für Hacker geeignet 

Fast jeder Computerbesitzer nennt ein Speicher- oder Disketten Monitor- 
Programm sein eigen und arbeitet auch damit, wenn er seinen CPC etwas 
mehr von innen kennenlernen möchte, oder sich an die fast unergründli¬ 
chen Tiefen der Maschinensprache heranmacht. Diese Programme haben 
allerdings den Nachteil, nicht immer direkt zur Verfügung zu stehen oder 
zumindest erst einmal selbst in den Rechner geladen werden zu müssen. Ei¬ 
nen etwas anderen Weg geht da SIREN-Soft mit dem Steckmodul HACKIT. 


Gerät: HACKIT — Steckmodul für 
CPC 464/664/6128 
Entwicklung: SIREN SOFTWARE 
Vertrieb in Deutschland: 

PR8 - Software, Margetshöchheim 
Preis: DM 189, — 

HACKIT — das Steckmodul — wird 
als kleine schwarze Box zum Anschluß 
an den CPC 464/664 geliefert. Für den 
CPC 6128 braucht man noch ein Adap¬ 
terkabel, da dieser Rechner über eine 
Buchse für den Expansion-Port vefügt, 
jedoch beim HACKIT ein Platinen¬ 
stecker von vornherein vorgesehen ist. 
Das Kabel kann man bei PR8-Soft je¬ 
doch gleich zu einem Preis von 
DM 24, — miterwerben. Außerdem be¬ 
finden sich bei Hackit noch je ein Ta¬ 
ster und ein Schalter am Gehäuse. Der 
Schalter schaltet das Modul aus oder 
ein, der Taster gibt einen RESET-Im- 
puls an den Rechner weiter. 

RESET heißt das Zauberwort 

Das Modul kann direkt nach dem Ein¬ 
schalten genutzt werden; wenn der 
Schalter des Moduls auf ON steht, wird 


direkt nach Initialisierung des Rech¬ 
ners in die Benutzeroberfläche von 
HACKIT geschaltet. Jeder RESET 
durch den Drei-Finger-Griff führt au¬ 
tomatisch wieder in dieses Eingabe- 
feld. Man kann trotzdem ins BASIC 
des Rechners gelangen, indem man 
ganz einfach den Befehl BASIC ein¬ 
gibt. Nun befindet sich der Rechner 
wieder in seinem Urzustand, es können 
jetzt auch Programme von Kassette 
oder Diskette geladen werden. Sollte es 
sich um ein Programm handeln, das 
nicht durch die Tastenkombination 
CTRL - SHIFT - ESC verlassen 
werden kann, tritt nun der rote Taster 
des Moduls in Aktion. Nach Betäti¬ 
gung findet man sich im Befehlsfeld 
von HACKIT wieder (nur bei einge¬ 
schaltetem Modul), der Speicherbereich 
bleibt dabei (meistens) unangetastet. 

Viele Befehle 

HACKIT bietet eine Vielzahl an Befeh¬ 
len zur Arbeit mit dem Computerspei¬ 
cher an. Dieses sind: 

— DISC: HACKIT arbeitet nach der 
Initialisierung mit dem Kassetten- 


Laufwerk, nach der Eingabe von 
DISC wird das Floppy-Laufwerk 
anerkannt. Der Bereich für das 
Floppy-RAM kann dabei frei ge¬ 
wählt werden. 

- EDIT: Nach Eingabe der Bereichs¬ 
nummer wird der Speicherbereich 
als Hexdump auf dem Bildschirm 
ausgegeben. Mit dem Cursor kann 
man in den gewünschten Wert gehen 
und diesen durch Neueingabe än¬ 
dern, wobei mit TAB zwischen der 
HEX- und der ASCII- Ausgabe ge¬ 
wechselt werden kann. 

- BASIC: Rückkehr in das Betriebs¬ 
system. 

- CLS: wie unter BASIC. 

- CAT: Zeigt den Inhalt von Diskette 
oder Kassette, jedoch nur die nor¬ 
malen Files. 

- RSX: Hier fragt HACKIT nach dem 
RSX-Befehl, nach dem es suchen 
soll. Ist er gefunden, wird der Be¬ 
fehl ausgeführt. 

- PEN, PAPER, BORDER: Wie un¬ 
ter BASIC, jedoch für den 
HACKIT-Screen. 

- CALL: Ruft wie unter BASIC eine 
Maschinenspracheroutine auf. 

- MEMORY: Ein sehr interessanter 
Befehl, zeigt er doch grafisch den 
belegten Speicher des CPCs an. 

- HELP: Listet alle Befehle des Mo¬ 
duls auf. 

- LOAD: Lädt ein Programm an eine 
von Ihnen einzugebende Stelle des 
Speichers. Wird RETURN ge¬ 
drückt, wird das Programm an die 
vorgegebene Adresse geladen. 

- HEADER: Zeigt die Header- Infor¬ 
mationen eines einzugebenden Files 
auf dem Bildschirm. 

- SAVE: Speichert einen bestimmten 
Teil des Speicherinhaltes auf Kas¬ 
sette/Diskette ab. Einzugeben ist da¬ 
bei der Name, die Startadresse, die 
Länge, die Einsprungadresse, die 
Ladeadresse und ob das File Binär¬ 
oder BASIC- Datei ist. 

- COLOURS: gibt die aktuellen 16 
Farben und den Border auf dem 
Bildschirm aus. 

- MO VE: Versetzt einen Speicherbe¬ 
reich an eine andere anzugebende 
Anfangs-Adresse, der ehemalige 
Bereich wird gelöscht. 

- COPY: Wie MOVE, jedoch bleibt 
der alte Bereich erhalten. 

- FILL: Füllt einen angegebenen Be¬ 
reich mit einem Wert, der ebenfalls 
frei angegeben werden kann. 

- DISASSEMBLE: Hier wird ein von 
Ihnen eingegebener Speicherbereich 
disassembliert. Der disassemblierte 
Teil kann auf Diskette für späteres 
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Bild 1: 

Mit MEMORY läßt sich 
der gesamte Speicher 
des CPC eins ehe n, die 
Belegung gibt Auskunft 
über den benötigten 
RAM-Bereich. 


Arbeiten mit einem Assembler ge¬ 
speichert, oder aber direkt auf den 
Bildschirm ausgegeben werden. 

- HEXTODEC und DEXTOHEC: 
setzen hexadezimale Zahlen in dezi¬ 
male und umgekehrt um (16-Bit- 
Werte). 

- SEARCH: Sucht einen Hex- oder 
ASCIl-Wert im Speicher, gibt die 
gefundenen Adressen aus. 

- PRON und PROFF: Der Drucker 
wird ein- und ausgeschaltet, alle auf 
dem Monitor erscheinenden Daten 
werden nach PRON auf den 
Drucker mit ausgegeben. 

- BANK: Erlaubt den Zugriff auf die 
zweite RAM-Bank des 6128 oder 
externe Speicher beim 464/664. 

- ALTERN ATE: Das Kommando 
funktioniert nur beim CPC 464/664 
mit der dk’tronics-Speicher-Erwei- 
terung. Hierbei wird das Programm 
in die zweite RAM-Bank verlegt, 
der Rechner nimmt jedoch die erste 
RAM-Bank an. Ein kompletter 64K- 
Speicher wird somit einsehbar. 

- OUT und IN : wie unter BASIC. 

- CLEAR: Der Bereich von &40 bis 
&AB80 sowie externe Speicherbe¬ 
reiche werden mit 0 aufgefüllt. 


- RESTORE: Setzt die Farben 
schwarz (PEN) auf weiß (PAPER), 
nützlich falls ein Programm die Far¬ 
ben falsch setzt. 

— PEEK und POKE: wie unter 
BASIC. 

Fazit: 

HACKIT kann zu einem unentbehrli¬ 
chen Hilfsmittel für Assembler-Pro¬ 
grammierer werden, gleichzeitig aber 
auch für diejenigen eine Hilfe sein, die 
Ihren CPC und seine Programme näher 
kennenlemen wollen, als dies ohne 
Hilfsmittel möglich ist. Maschinen¬ 
sprache ist bei HACKIT zwar nicht 
Voraussetzung, sollte jedoch ansatz¬ 
weise zur Kenntnis genommen worden 
sein. Dies sollte jedoch diejenigen 
nicht abschrecken, die sich noch nicht 
mit dieser Materie auskennen, die Fül¬ 
le an Befehlen machen die Arbeit mit 
HACKIT relativ einfach. Der einzige 
negative Punkt, der uns auffiel, ist der 
relativ hohe Preis, ansonsten ist 
HACKIT mit das Empfehlenswerteste, 
was uns in dieser Kategorie bekannt ist. 

Ob) 


Software für CPC und Joyce 


Preiswerte Software für Schneider-CPC 
und Joyce mit deutschen Handbuch - so 
machen diese Programme richtig Spaß! 
Jetzt drei tolle neue Programme! 

Neu: WS-TUNER für Wordstar * 

Vergessen Sie alles, was Sie bisher über 
WordStar-Erweiterungcn erfahren haben! 
Endlich können Sie Dateien per Cursor¬ 
lasten auswählcn, die Tasten frei belegen, 
Textbausteine verwalten, neue WordStar- 
Bcfehlc definieren, Tcxtlöschungen rück¬ 
gängig machen, Steuerzeichen invers an- 
zeigen lassen, zwischendurch andere Text¬ 
dateien ansehen, drucken ohne zwischen¬ 
zuspeichern, jederzeit die freie Disketten- 
kapazilät sowie Textlänge ermitteln und, 
und, und ... WS-TUNER installiert sich 
automatisch auf Wordstar und steht sofort 
zu Ihrer Verfügung! 

nur DM 49,80 (keine PD) 
(unverbindliche Preisempfehlung) 


1- JRT-Pascal mit 64K-Strings, Overlays * 

2- Z80-Assembler, Linker, Debugger 

3- Interpreter für XLISP und PROLOG * 

4- Compiler Small-C: Fließkommazahlen * 

5- Forth-83: Multitasking, Assembler ... 

6- CP/M-Utilities: Diskmonitor, Unera ... 

7- Programme aus dem CPC-Arbeitsbuch 

8- Tcxt-Adventure Colossal Cave * 

9- Kopierprogramm Disk Utilities (CPC) 

10- BizBasic - CPC-Basic-Erwciterung 

11- E-Basic - CBasic-kompatibler Compiler 

12- Für Turbo Pascal: INLINER, Grafik 

13- Programme aus Joyce programmieren 

14- Programme aus CPC-Dateiverwaltung 

15- WordStar-Utilities: Fußnoten, Index * 

16- Literaturverwaltung für dBASE II * 

17- C-Interpreter - interaktiv C lernen * 

Neu: #18 MacroPack/Z80 

Neu: #19 Telekommunikation mit MEX 

Mehr darüber in den Public Domain-News, 
die wir Ihnen gerne kostenlos schicken! 

* auf dem CPC-464/664 nur mit Speicher¬ 
erweiterung (64K genügen). 

Der Preis? Nur 30,- Mark pro Diskette! 
(unverbindliche Preisempfchlung) 

3 Zoll, Vortex-Format oder 1570/1571. 
Lieferung per Nachnahme oder Voraus¬ 
kasse, Ausland: nur Vorauskasse. 

MARTIN KOTULLA 

Grabbestraße 9,8500 Nürnberg 90 
Telefon 09 11/30 33 33 

Weitere Bezugsquellen: 

Firma Simon. 4600 Dortmund 1, Tel. 0231/511370 
Mükra, 1000 Berlin 42, Tel. 030/7529150 
Firma Becker, 6690 St. Wendel 8, Tel. 06856/504 
Computerstore, 8500 Nürnberg, Tel. 0911/289028 
TESCO GmbH, 8714 Wiesentheid, Tel. 09383/1237 
Hochholzer, 8062 Markt Indersdorf, Tel. 08136/1625 
Weeske, 7150 Backnang, Tel. 07191/1528 
Handelskontor Kay Jürgens, 2300 Kiel 
Fritz Obermeier, 4972 Löhne 1, Tel. 05732/3246 
Gisbert Denz, 4784 Rüthen 2, Telefon 02902/58040 


S0£3 83 
S0M h 

S S 28 38 
7 fl) 78 
MC9 6$ 

mb ts 
■ 72 
»IC 88 
»» 6K 
»El 87 
y» 29 77 
SO I (5 
SW2 73 
SW3 78 
5W8 CS 
SWS 72 
SWS sc 
SW7 79 
»18 fl) 73 
SW8 78 
»KB Bf 
SWC 72 


LD H,E 
LD 8,1 
JR «,tsiir 
JR KZ.IS1SF 
LD H.t 
LD H.L 
l.l (IL),D 
LD L,C 
LD L,(HL) 
LD U 
JR Iß. IS 168 

LD H.t 
LD 

LD (IL).i 
LD H.L 
LD (HL),D 
LD l.N 

JR l&tSICD 
LD <HL).H 
LD L.Ä 
LD <*L),D 
LD L.L 


Bild 2: 

Mit DISASS wird 
ein Disassembler 
aufgerufen. 
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I—Hardware 


Eine für Alle 

Vortex System 2000 schafft Verbindungen 

Die Idee ist denkbar einfach: Anstatt das Rad bei jeder sich bietenden Gele¬ 
genheit neu zu erfinden, nimmt man ein bewährtes Rad und erfindet ledig¬ 
lich Zwischenstücke, die dieses Rad an möglichst viele Fahrzeuge anpassen. 
So auch das Konzept des ’System 2000’: Eine Festplatten-Grundeinheit 
kann mit einem ’Personality-Modul’ an eine breite Rechner-Palette ange¬ 
schlossen werden... 


Noch vor der offiziellen Vorstellung 
hatten wir die Gelegenheit, das ’Sy¬ 
stem 2000’ im Hause Vortex zu begut¬ 
achten und in Betrieb zu nehmen. Die 
Idee, die diesem Konzept zugrunde 
liegt, ist die, einen auf einem Rechner 
erstellten Datenbestand, der auf der 


Bild I: Aufgeräumt: Das Innere der Grundein¬ 
heit des ’System 2000 ’ 

Festplatteneinheit des System 2000 ge¬ 
speichert wurde, nach einem System¬ 
wechsel weiterverwenden zu können, 
wobei nur das preisgünstige Personali¬ 
ty-Modul neu angeschafft werden 
muß. 

Die Grundeinheit, die für jeden Rech¬ 
nertyp gleich ist, besteht aus einer 
3,5“-Festplatte und einem 40 Watt- 
Schaltnetzteil, die in einem flachen Ge¬ 
häuse untergebracht sind, welches man 
nicht verschämt hinter dem Rechner 
verstecken muß - ein Attribut an ästhe¬ 
tische Ansprüche von Computerbesit¬ 
zern... 

Die Laufwerke nebst zugehörigen 
Controllern sind die von den Drive¬ 
cards bekannten Einheiten; wie auch 
die Drivecards werden die Grundein¬ 
heiten des System 2000 mit Speicher¬ 
kapazitäten von 20, 30, 40 und 60 MB 
erhältlich sein. 

Die Grundeinheit bietet 
bewährte Technik... 

Das Netzteil ist voll abgeschirmt, zur 
Vermeidung von Wärmeproblemen 
wurde der Einheit ein Lüfter spendiert. 
Die Verarbeitung der kompletten Ein¬ 
heit ist von schwäbischer Qualität, was 
durchaus als Prädikat gelten darf. 


Über eine Vortex-eigene Schnittstelle 
wird diese Grundeinheit nun mit den 
sog. Personality-Modulen verbunden, 
die die Brücke zum jeweiligen Compu¬ 
ter schlagen und bislang für folgende 
Rechner verfügbar sind: 

- AMSTRAD PC 1512/1640 

- IBM PC/XT 

- IBM PS/2-30 

- AMSTRAD PCW 8256/8512/9512 

- AMSTRAD PPC 512/640 

Das Modul für die PCs 1512/1640 be¬ 
steht schlicht und einfach aus einer 
'halben ’ Steckkarte, die, in einem der 
verfügbaren Slots untergebracht, die 
Verbindung zum Festplattenmodul 
übernimmt. 

Die PC Ws werden über den Expan¬ 
sions-Port, an den beispielsweise auch 
das Schnittstellenmodul CPS 8256 an¬ 
geschlossen wird, per PCW-Personali- 
ty-Modul an die Grundeinheit ’ange- 
klemmt’. 

Für jeden Rechnertyp ein 

eigenes * Personality’-Modul 

Besonders zu erwähnen ist bei der 
PCW-Adaption die Auslieferung des 
Moduls mit einer lizensierten Betriebs¬ 
system-Diskette, welche eine Festplat¬ 
tenversion von CP/M Plus (61 KB TPA 
gegenüber den 57 KB unter der WD 
2000) und die LocoScript-Version 
2.16H (für Harddisk) enthält. Ebenso 
im Preis inbegriffen ist ein Hilfspro¬ 
gramm namens SYS2000, welches die 
Partitionierung (Unterteilung in meh¬ 
rere logische Bereiche) der Festplatte 
sowie die Zuweisung der maximalen 



Bild 2: Eine 'halbe' Karte verbindet die PCs 
mit der Festplatteneinheit 


Bild 3: Kommt mit neuen Betriebssystemen: 

Das Personality-Modul für die PCWs 

Anzahl der Directoryeinträge in die 
einzelnen Partitionen erlaubt und nicht 
zuletzt auch die automatische Erstel¬ 
lung einer Startdiskette ermöglicht. 
Last, not least steht auch für die tragba¬ 
ren AMSTRAD-PCs ein eigenes Per¬ 
sonality-Modul zur Verfügung, wel¬ 
ches an die beiden hinteren Expan¬ 
sionsport-Buchsen angeschlossen wird 
und dem Portablen somit auf einfache 
Weise den Zugriff auf die Festplatte¬ 
neinheit (beispielsweise die des Heim¬ 
rechners?) erlaubt. Besonderheit dieses 
Moduls ist ein an der Oberseite heraus¬ 
geführter genormter (allerdings unge- 
pufferter) PC-Steckplatz, der die Mög¬ 
lichkeit der zusätzlichen Erweiterung 
bereitstellt. 


Bild 4: Offen: Ein PC-Steckplatz im Modul für 
den PPC läßt Erweiterungen zu 


Allen Modulen gemeinsam ist ein kom¬ 
fortables Backup- und Verwaltungs¬ 
programm, welches die Organisations¬ 
und Sicherungsarbeit mit der Festplatte 
erheblich erleichtert. Besonders inter¬ 
essant: Vortex hat sich bereit erklärt, 
das neue Backup-Programm interes¬ 
sierten Besitzern der WD 2000 als Ser¬ 
vice gegen einen Unkostenbeitrag zur 
Verfügung zu stellen. 

Die Preise standen zum Redaktions¬ 
schluß dieser Ausgabe nicht endgültig 
fest; jedoch soll der Preis für eine 20 
MB-Grundeinheit und ein Personality- 
Modul lt. Vortex um etwa 1500, - DM 
liegen; die 60 MB-Version soll für 
etwa 2500,— DM zu haben sein. 

Info: Vortex Computersysteme GmbH 
Falterstr. 51-53 
7101 Flein 


(me) 
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■ NUERNBERC 

IwÜPPERiAL 


MO HAT 
C.F.BENZ DIE 
ERSTE 
AUTOFABRIK 
GEGRUENDET ? 


Kann eine unbegrenzte Anzahl von Fragen uno Antworten verwalten • hat ständig ca 400 Fragen 
plus Antworten im Speicher ■ bietel die Möglichkeit, eigene Fragen einzugeben, und zwar mit einem 
komfortablen Editor • besitzt eine Supergralik mit Window-Technik ist vollkommen menuegesteu- 
ert zeigt bis jetzt noch nie dagewesene Tricks mit dem VidBOcontrnller • stellt zu jeder Frage 5 
mögliche Antworten vor ■ kann man mit der ganzen Familie spielen, da jeder eine Mindest-Chance 
von 1-5 hat muß man mit Strategie spielen, da der Beste in jedem Wissensgebiet am Ende noch 
Zusatzpunkte bekommt wurde mit äußerst schnellen Suchroutinen ausgestattet, die verhindern, daß 
eine schon richtig beantwortete Trage nochmals erscheint ist spielbar mit 1-4 Einzelspielern oder in 
Grupoen mit einem Vieltachen davon ■ erkennt automatisch, welche Fragenblöcke auf der Diskette 
noch unbeantwortet sind zeichnet sich nicht nur durch die og Punkte als höchst zukunftssicher aus! 

für CPC 464 ■ 664 • 6128 

Best.-Nr. 106 3“ Diskette 29,- DM* 


OYRUS II SCHACH 



Das bewährte Programm für CPC's 

Wahlweise 3D oder 2D Display, Einstellbare Spielstarke und vie 
le weitere Extra-Features (mit deutscher Bedienungsanleitung). 

zum Sonderpreis Kassette 12,95 DM* 

Best.-Nr. 106 


CPC Power-Spiele-Paket! 

18 tolle Spiele für Ihren CPC 464, 664 oder 6128 auf 
3"-Disketten zum Knüllerpreis von nur 
nur solange Vorrat reicht 

Best.-Nr. 102 4 Disketten 70,- DM* 


Fantastic Four 


vier Super-Programme zum kleinen Preis 



Die neue CPC-Spielebox enthält vier ausgesuchte TOP- 
Programme der Spitzenklasse. Da ist für jeden das rich¬ 
tige dabei! 


Für alle CPCs nur als 3-Diskette 


COCKAIGNE 

- ist ein echtes Weltraum-Action- 
spiel mit allem, was zu dieser Art 
von Software gehört. Die Erde kann 
das immer größer werdende Ozon¬ 
loch nicht mehr verkraften, die Ex¬ 
pedition COCKAIGNE soll in fer¬ 
nen Galaxien neue Lebensräume 
erkunden. Als Leiter dieser Expe¬ 
dition haben Sie alle Hände voll 
zu tun... 


TERRANAUTI 

- deutsches Science-Fiction-Adventure 
mit hervorragender Grafik. Vor 50 
Jahren startete das letzte Gene- 
rationen-Raumschiff TERRA von 
der Erde, um das Planetensystem 
Sirius zu kolonisieren. Durch eine 
kosmische Katastrophe verschwand 
die TERRA spurlos, Erst Jahre später 
fing eine Hyperfunkstation einen Funk¬ 
spruch auf- die TERRA wurde in eine 
andere Galaxis katapultiert! 
Übernehmen Sie die Rolle des Com¬ 
manders von Thaifun, dem ersten 
Galaxien-Kreuzer, und begeben Sie sich 
auf die Suche nach dem Raumschiff 
TERRA. 


FRUITS 

- Als Bauerssohn Frank jun. ist es Ihre 
Aufgabe, die Ernte der Felder einzu¬ 
fahren. Bei ihrem Vorhaben werden 
Sie allerdings von den “bösen Nasen" 
am Gelingen gehindert, zudem sind 
einige Feldfrüchte ziemlich unge¬ 
sund. Fruits ist ein Geschicklichkeits¬ 
und Actionsspiel der Extraklasse, besitzt 
eine ausgefeilte Grafik und gewährt lange 
Spielfreude. 


TERRANAUT II 

- die Überlebenden Nachdem Sie 
den ersten Teil gut überstanden ha¬ 
ben, kommt sogleich die nächste 
Aufgabe auf Sie zu. Sie haben den 
Planeten gefunden, auf dem das ver¬ 
mißte Raumschiff TERRA gestrandet 
ist. Nun gilt es nach etwaigen Überleben¬ 
den der Katastrophe zu forschen. 

Terranaut II ist ein deutsches Textadventure 
mit vielen interessanten Features und einer 
spannenden Story. 


Best.-Nr. 1011 


49,- DM* 





4 


In den Tiefen der Galaxis 
wartet die letzte 
Herausforderung auf Sie 

Oer Zeitherr, ein Wesen aus den Tiefen des 
Weltraums, hat einen komischen Wettbewe-b 
ausgeschrieben, um etwas Zerstreuung in 
sein unendlich langes Leben zu bringen: 
Den STARTEST. 

Nur wenige können die Prüfungen bestehen, 
aber wer es schafft, dem winkt eine 
Verlängerung seiner Lebensspanne 


für CPC 464 • 664 ■ 6128 

Kassette 24,- DM* 
Diskette 3“ 29,-DM* 


Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 3,- DM bzw. für das Ausland 5,- DM Porto und Verpackung. 

Bitte benutzen Sie die Bestellkarte. 

DM V Verlag ■ Postfach 250 ■ Fuldaer Str. 6 ■ 3440 Eschwege 













I—Programm 


Die Berlinerin 

eine Patience-Variante 

Schon lange Zeit spielt man Patience mit einer Vielzahl von 
Variationen. Eine davon möchten wir Ihnen vorstellen. 

Die Spielregeln sind einfach und leicht zu begreifen. Dafür 
erfordert es aber einige Konzentration. Da die Spielregeln im 
Programm eingefügt sind, brauchen Sie hier nicht noch ein¬ 
mal erklärt zu werden. Für den besonders interessierten 
Spieler empfehlen wir, sich weitere Literatur zu besorgen. 

Der Neuling 

Haben Sie noch keine Patience-Partie gespielt, so beginnen 
Sie im Spiel am besten mit der Option 1. Sie bietet dem An¬ 
fänger das beste Erfolgserlebnis, und man bekommt das rich¬ 
tige Gefühl für das Spiel. 

Der Fortgeschrittene 

hat die Möglichkeit gleich ins das volle Spielgeschehen ein¬ 
zusteigen, wenn im Spiel die Option 2 angewählt wird. 



mationen nicht mehr möglich ist. Der Einsatz sollte aber ge¬ 
nau überlegt werden, da das Bild auf den ersten Moment un¬ 
übersichtlich erscheint. Aber mit etwas Konzentration und 
Geduld läßt sich jedes Bild ordnen. Was auch unter anderem 
der Sinn des Spieles ist. 


Die Tastenbelegungen 

Die Taste “E“: sie wird benutzt, wenn Freund “Zufall“ die 
Anfangskarten so mischt, daß ein Beenden der Karten-For- 


Hinweis: 

Durch das Weglassen der REM-Zeilen können circa 2300 
Bytes gespart werden. Und nun wünschen wir Ihnen viel 
Spaß! (H. Lützler/cd) 


für 464-664-6128 



10 ■ 

******************** 


[ 665 ] 

20 1 

* 

* 


[175] 

30 ' 

* DIE BERLINERIN 

* 


[1161] 

40 ' 

* 

* 


[175] 

50 ' 

* eine kniffelige 

* 


[914] 

60 ' 

* 

* 


[175] 

70 ' 

* PATIENCE 

* 


[556] 

80 ' 

* 

* 


[175] 

90 ' 

* geschrieben von: 

* 


[2270] 

100 

' * 

* 


[175] 

110 

’* H.Luetz1e r 

* 


[ 568] 

120 

■ * 

* 


[175] 

130 

'* auf M/S FRISIA 

* 


[915] 

140 

' * 

* 


[175] 

150 

'* 01.88 

* 


[551] 

160 

' * 

* 


[175] 

1 70 

• ******************** 


[ 665 ] 

180 




[117] 

190 




[117] 

200 

SYMBOL AFTER 32 



[1296] 

210 

DEFINT b-e,g-m,p-r, 

y 


[874] 

220 

DEFSTR a,f,n,s,t,w 



[1239] 

230 




[117] 

240 

'[1] M-Kode (doppelte Buchstabenhoehe) 

[3466] 

250 

' 



[117] 

260 

DATA 1,99,65,21,9,66,C3 

,Dl,BC,Al,65,C3 

[3850] 

,A8,65,C3,C3,65 




270 

DATA 54,4F,DO,42,4F 

, 04, 

0,3E,20,CD,A5,B 

[3021] 

B , 22 

,7,66,CD,D6 




280 

DATA 65,47,7E,06,20 

, CD, 

E3,65,3E,F8,CD, 

[2514] 


5 A,BB,2 3,10,F2,C9 

290 DATA CD.D6.65,47,7E,D6.20,CD,E3.65.3E, [2328] 

F9,CD,5A.BB,23,10 

300 DATA F2,C9,DD,66,1,DD,6E,0,7E,23,5E,23 [3100] 
, 56,EB,C9,E5,C5 



310 DATA 26,0,6F,29,29,29,ED,58,7,66,19,E5 
,3E,F8,CD,A5,BB 

320 DATA E8,El,6,8,7E,12,13,12,13,23.10 , F8 

,AF,12,CI,El,C9 

330 DATA 0,0,FC,A6,99,65,0 

340 FOR b=&6590 TO &660D 

350 READ t:c=VAL("&"+t):POKE b,c 

360 NEXT 

370 CALL 26000 

380 ' 

390 ' [2] Titelbi 1d 
400 1 

410 a = CHR$(228)'-1.Tite1 String 

420 f = " D I E BERLINERI N"'-2.Ti 

te1 st ring 

430 t=CHR$(229)-3.Tite1 String 

440 MODE 1:BORDER 13:INK 0.9.INK 1,0:INK 2 
,26 

450 PEN 1:PAPER 2:PRINT CHR$(226);:PEN 2:P 
APER 0:PRINT STRING$(38,CHR$(154)); :PEN 3: 
PAPER 2:PRINT CHR$(228 ):PAPER 0 
460 FOR j =2 TO 24 

470 PEN 2:LOCATE l,j:PRINT CHR$(149) 

480 LOCATE 40,j:PRINT CHR$(149) 

490 NEXT 

500 LOCATE 1,25:PEN 3:PAPER 2:PRINT CHR$(2 
27);:PAPER 0:PEN 2:°RINT STRINGS[38,CHR$(1 
54));:PEN 1:PAPER 2:PRINT CHR$(229); 

510 LOCATE 5,3:PAPER 0:PEN 3:!T0P,@a'-Ob 

ere Haelfte 1.Titelstring 

520 LOCATE 5.4:!B0T,@a'-Untere Haelfte 1 

.Titelstring 

530 LOCATE 36,3:PEN l:!TOP,@t 
540 LOCATE 36,4;!BOT,@t 
550 FOR j=l TO 15 STEP 2 
560 IF j = 15 THEN j=j-l 
570 LOCATE 8,3:PEN j:lTOP,@f 
580 LOCATE 8,4:PEN j:!BOT,@f 
590 NEXT 

600 FOR j=l TO 4 
610 LOCATE 1 6 +j,6 +j 

620 IF 22 5 +j =226 OR 225 + 3=229 THEN PEN 1:P 
APER 2 


[1786] 

[2767] 

[974] 

[929] 

[1646] 

[ 350] 

[660] 

[117] 

[1092] 

[117] 

[ 2660 ] 

[2618] 

[1270] 
[2700] 

[7186] 


[809] 
[2950] 
[1435] 
[ 350] 

[ 7989 ] 


[ 5064 ] 

[ 3999 ] 

[1218] 

[1758] 

[717] 

[1554] 

[1176] 

[ 1941] 

[ 350] 

[621] 

[414] 

[2702] 


Listing Berlinerin 


Listinc 


Berlinerin 
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630 IF 225 +j = 22 7 OR 225+j=22B THEN PEN 3 [2266] 


640 PRINT"A"+CHR$(225+j)+" " [1722] 

650 FOR e=1 TO 3 [901] 

660 LOCATE 16+j,6+j+ e:PRINT SPC(4) [1959] 

670 NEXT [350] 

680 LOCATE 16+j,10+j:PRINT" A"+CHR$(225+j [2579] 

) 

690 ’ [117] 

700 'Kartenumrandung [868] 

710 ' [117] 


7 20 PLOT(j + 14>*16 + 16,32 0-j * 16,1 - -Anfangs 

pun kt 

730 DRAW(j+14)*16+78,320-j*16' nach rech 

ts 

740 DRAW(j+14)*16+7B,240-j*16'-nach unte 

n 

7S0 DRAW(j+14)*16+16,240-j*16' nach link 

s 

760 DRAW (j+14)* 16+16,320-j* 16 ‘ nach oben 

770 SOUND 2,30+k,5 
780 k= k+10 
790 NEXT 

800 PEN 2:PAPER 0:L0CATE 9,17:PR X NT"Eine k 
niffelige Patience 

810 PEN 1:LOCATE 6,19:PRINT"by H.Luetzler 
M/S Frisia 01.88 

820 PEN 2:LOCATE 6,21:PRINT CHR$(164)+" S 
CHNEIDER CPC INTERNATIONAL 

830 PEN 1:LOCATE 7,23:PRINT"Spie1 rege 1n na 
ch Tastend ruckCALL &8B1B 
840 FOR j=l TO 25 

850 LOCATE 1,1:PRINT CHR$f11):SOUNO 1,40+q 

,3.10:q=q+5 

860 FOR k=l TO 80 

870 NEXT k,j 

880 1 

890 '[3] Spielregeln Blatt 1 
900 ' 

910 MODE 2:INK l,26:GOSUB 4030 

920 LOCATE 28,2:!TOP,@f'-Obere Haelfte 2 

.Tite1st ring 

930 LOCATE 28,3r !BOT,@f 1 -Untere Haelfte 

2 . Tite1String 

940 LOCATE 2,5:PRINT"Zie1 des Spieles ist 
es, auf den 4 Assen Familien in aufsteige 
nder Ordnung zu 

950 LOCATE 2,6:PRINT"bi 1 den, also z.B. auf 
Herz Ass die Herz 2, Herz 3 u.s.w. bis zu 
m Koenlg. 

960 LOCATE 2,7:PRINT"Sind, nach dem Mische 
n, alle Karten ausgelegt, so darf mit dem 
Aufbau begonnen 

970 LOCATE 2,8:PRINT"werden. Frei zum Aufb 
auen der Familien sind immer nur die unter 
sten Karten der 

980 LOCATE 2,9;PRINT"8 Reihen. Koennen kei 
ne Karten mehr auf die Familien gelegt wer 
den,so darf die 

990 LOCATE 2,10:PRINT"jewe11s letzte Kart 
e einer Reihe auf die letzte Karte einer 
anderen Reihe in 

1000 LOCATE 2,11:PRINT"absteigender Ordnun 
g ohne Farbzwang gelegt werden. Zum Beispi 
el eine Herz Neun 

1010 LOCATE 2,12:PRINT"auf eine Karo Zehn, 
Herz Zehn, Kreuz Zehn oder Pik Zehn. Ourc 
h dieses Umlegen 

1020 LOCATE 2,13:PRINT"werden wieder Kar 
ten frei, die eventuell zum Aufbau der F 
amilien verwendet 

1030 LOCATE 2,14:PRINT"werden koennen. Gan 
ze Folgen duerfen nicht umgelegt werden. 
1040 LOCATE 2,15:PR I NT”Es sollte tunlichst 
vermieden werden,eine Karte an eine Reihe 
anzu1 egen,1n der 

1050 LOCATE 2,16:PRINT"sich weiter oben e 
ine niedrigere Karte derselben Farbe befin 
det. Man bekommt 

1060 LOCATE 2,17:PRI NT"naemlich diese Kart 
e, die man ja zuerst fuer den Familien-Auf 
bau benoetigt,nur 

1070 LOCATE 2,18:PRINT"schwer wieder frei. 
1080 LOCATE 2,19:PRINT"So 11te eine Reihe 
frei werden, so darf die unterste Karte 
einer beliebigen 


[1607] 
[1243] 
[2433] 
[1474] 
[2737] 

[ 1302 ] 
[399] 

[ 350] 

[2978] 

[4964] 

[3705] 

[4227] 

[ 729 ] 

[2825] 

[1276] 

[371] 

[117] 

[437] 

[117] 

[2299 ] 

[4064] 

[2226] 

[8336] 


[7424] 


[ 11010 ] 


[8887] 


[8782] 


[ 10441 ] 


[9662] 


[9910] 


[8098] 


[5620] 
[10646 


[7458] 


[9238] 


[2451 ] 
[7126] 


1090 LOCATE 2,20:PRINT"Re 1 he auf diesen fr 
eien Platz gelegt werden. So hat man die 
Chance, eventuel1 

1100 LOCATE 2,21:PRINT"blockierte Karten f 
reizubekommen. 

1110 LOCATE 30,23:PRINT"Weiter mit Tastend 
ruck" : CALL 8.BB18 
1120 ' 

1130 '[4] Spielregeln Blatt 2 
1140 ' 

1150 CLS:GOSUB 4030 

1160 a=“D ie Tastenbelegung 

1170 LOCATE 23,2:!TOP,Ha 
1180 LOCATE 23,3:!BOT,@a 

1190 LOCATE 13,5:PRINT"Kartenwert"SPC(13)" 
Kartenfarbe"SPC(13)"Kartenwert 

1200 LOCATE 12,6:PRINT"A.Ass"SPC(9) 

"K.Kreuz = "CHR$( 226)SPC(9 ) "8. 

acht 

1210 LOCATE 12,7:PR I NT"2.zwei"SPC(9) 

"P.Pik = "CHR$(229)SPC(9 ) "9. 

zehn 

1220 LOCATE 12,8:PRINT"3.drei“SPC(9) 

"H.Herz = " CHR$ ( 22 8 > SPC ( 9 ) " Oode r 1 . . 

2 ehn 

1230 LOCATE 12,9:PRINT"4.vier"SPC(9) 

"C.Karo = "CHR$(227)SPC(9)“J.J 

unge 

1240 LOCATE 12,10:PRINT"5.fuenf";SPC( 

35) ; "0.Dame 

1250 LOCATE 12,11:PRINT"6.sechs"SPC(l 

O) "Sonstige Tasten"SPC(10)"K.Koenig 

1260 LOCATE 12,12:PRINT"7.sieben"SPC(9 

)"DEL..andere Karte”SPC(9)"F..Freiplatz 
1270 LOCATE 32,13:PR I NT"E. .vorzeitiges End 
e 

1280 LOCATE 5,15:PRI NT"Der Computer erwart 
et zum Beispiel folgende Eingaben : 

1290 LOCATE 5,16:PRINT"Taste [1] und [C]=Z 
ehn-Karo (Computer=nach) Taste [J] und [ 

P] =Jung e-Pik 

1300 LOCATE 5,17:PRINT"oder Taste [D] und 
[K ] = Dame-K reu z (Computer = nach) Taste [F 
] = F rei Platz 

1310 LOCATE 5,18:PRINT"Mit der Taste [DEL] 
kann man eine falsch eingegebene Karte 
berichtigen. 

1320 LOCATE 5,19:PRINT"Weiterhin kann mit 
der Taste [E] das Spiel vorzeitig bee 
nden werden. 

1330 LOCATE 5,20:PRINT"Doch nun genug der 
Theorie !! 

1340 LOCATE 10,22:PRINT"Erst einmal ein le 
ichtes Spiel zum Anwaermen ?"SPC(7)CHR$(24 
)+"[ 1 ]"CHR$(24) 

1350 LOCATE 10,24;PR I NT"Oder gleich eins z 
um richtigen Gehirntraining?"SPC(7)CHR$(24 
)+"[ 2 ]"CHR$(24) 

1360 ON INSTR( "?12" , IN)<EY$) + 1 GOTO 1360,13 
60,1380,1370 

1370 RANDOMIZE TIME:z=RND*10:u=1:q = 125:GOT 
0 1390 

1380 z=l:u=3.12 
1390 FOR j=l TO 25 

1400 LOCATE 1,25:PRINT CHR$(10):SOUND l,q, 

3,10:q=q-3 

1410 FOR k=l TO 80 

1420 NEXT k,j 

1430 DIM ak(52),fa(4),na(14 ) ,sk( 14),tk(9,1 
8),we(13):M0DE 1:INK 1,0:GOSUB 4030 
1440 ' 

1450 '[5] Oaten fuer Kartenwerte 

1460 ' 

1470 DATA " A"," 2"," 3"," 4"," 5"," 6"," 
7"," 8"," 9",“IO"," J"D"," K" 

1480 w=”A234567890JDKF" 

1490 DATA Ass,Zwei,Drei,Vier,Fuenf,Sechs , S 
ieben,Acht,Neun,Zehn,Junge,Dame,Koenig,F re 
i Platz 

1500 DATA Kreuz,Karo,Herz,Pik 
1510 RESTORE 1470 

1520 FOR j=l TO 13:READ we(j):NEXT 
1530 FOR j=l TO 14;READ na(j):NEXT 
1540 FOR j=l TO 4:READ fa(j):NEXT 
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I Programm 


1550 FOR j =0 TO 39 STEP 13 [ 1679 ] 

1560 FOR k=1 TO 13 [1103] 

1570 ak(j+k)=we(k) +CHR$ (j/13+226) [14-08] 

1580 NEXT k.j [371] 

1590 ' [117] 

1600 '[6] Mischen [1022] 

1610 ' [117] 

1620 LOCATE 9,12;PEN 2:PRXNT"Bitte Ruhe ic [4177] 
h mische !! 

1630 FOR j = Z TO Z * u * 5 0 [ 1574] 

1640 SOUND 2,3405,1,13,.,9 [1703] 

1650 FOR b=l TO 30:NEXT b [1755] 

1660 ml=RND*51+l [802] 

1670 m2=RND*51+l:tk=ak(ml) [1241] 

1680 ak(ml)=ak(m2):ak(m2)=tk [1429] 

1690 NEXT [350] 

1700 LOCATE 9,12:PRINT SPC(24) [1038] 

1710 ' [117] 

1720 '[7] Karten auf den Tisch auslegen [2867] 

1730 ' [117] 

1740 v=l:kr=l:pk=l:he=l:ka=l [2321] 

1750 FOR y=0 TO 6 [1176] 

1760 FOR x=0 TO 7 [723] 

1770 PAPER 2:h=ASC(RIGHT${ak(v),1)) [2850] 

1780 IF h=226 OR h=229 THEN PEN 1 ELSE PEN [1771] 
3 

1790 ' [117] 

1800 '[7a] Wenn Fami1ien-Karte dann zum St [2618] 
apel rechts 

1810 ' [117] 

1820 n=MID$(a k (v) ,2,1) [1143] 

1830 g s= INSTR(w,n) [761] 


1840 IF gs=k r AND RIGHT$(ak(v) , 1)=CHR$(226 [3796] 
)THEN kr=kr+l:j=0:LOCATE 36,2:GOSU8 3610:G 
OTO 2030 

1850 IF gs=pk AND RIGHT${ak(v),1)=CHR$(229 [4464] 
)THEN pk=pk+l:j=6:LOCATE 36,8:G0SU8 3610:G 
OTO 2030 

1860 IF gs=he AND RIGHT$(ak(v),1)=CHR$(228 [3890] 
)THEN he=he+l:j=12:LOCATE 36,14:G0SUB 3610 
:GOTO 2030 

1870 IF gs=ka AND RIGHT$(ak(v),1)=CHR$(227 [4576] 
)THEN ka=ka+l:j=18:LOCATE 36,20:GOSUB 3610 
:GOTO 2030 


1880 ' [117] 

1890 '[7b] Sonst auf den Tisch auslegen [3987] 

1900 ' [117] 

1910 LOCATE x*4 + 2,y+2 [958] 

1920 IF LEFT$(ak(v),1)="1"THEN PRINT MID$( [3384] 

ak(v) ,1,3)ELSE PRINT MID$(ak(v) ,2,2 ) + " " 

1930 FOR e=l TO 2 [898] 

1940 LOCATE x*4 + 2,y + e+2:PRI NT SPC(3) [ 1456] 

1950 NEXT [350] 

1960 LOCATE x*4+2,y+5:PRINT ak(v) [852] 

1970 tk(x,y)=ak(v) [451] 

1980 PLOT x* 64+16,384-y*16,1 [1162] 

1990 DRAW x* 64 + 64,384-y*16 [693] 

2000 DRAW x*64+64,320-y*16 [825] 

2010 DRAW x*64+16,320-y*16 [643] 

2020 DRAW x * 6 4+16,384-y*16 [319] 

2030 IF v=52 THEN 2100 [787] 

2040 SOUND 2,5 * v , 5 , 10 [ 1584] 

2050 v = v+l [781] 

2060 NEXT x,y [548] 

2070 ' [117] 

2080 '[8] Spieler bewegt Karte [1887] 

2090 ' [117] 

2100 LOCATE 2,23:PEN OiPAPER 0:PRINT FRE( " [5840] 

")'-Garbage Collection 

2110 1C = 22:LOCATE 7,22:PEN 1:PAPER 0:PRINT [4979] 
" Bitte eine Karte ":m=0;GOSUB 2960 
2120 ' [117] 

2130 '[8a] Spielkarte [628] 

2140 ' [117] 

2150 'Fehlerbehandlung der Karte [2216] 

2160 ' [117] 

2170 IF tk(x,y+1)< >""OR tk(x,y) = ""THEN GOS [1969] 

UB 3700:GOTO 2110 

2180 IF na=CHR$(127)THEN GOSUB 2960 [1980] 

2190 IF LEFT$(na,1)="0"THEN sk="l"+na ELSE [3063] 
sk = na 

2200 PEN 2:LOCAT E 17,23:m=l [1214] 

2210 PRINT"nach”:lc=24:GOSUB 2960 [2274] 

2220 ' [117] 

2230 '[8b] nach Zielkarte [1846] 
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2240 ' [117] 

2250 'Fehlerbehandlung-- der Karte [2216] 

2260 ' [117] 

2270 IF na="F"AND i<l THEN GOSUB 3?00:G0T0 [ 1282] 

2110 

2280 IF tk(x,y+1)=""OR hh=l THEN 2290 ELSE [3390] 
GOSUB 3700:GOTO 2110 


2290 n=MID$(sk,1,1) [472] 

2300 IF n="l"THEN n="0" [986] 

2310 IF hh=l THEN 2320 ELSE 2350 [638] 

2320 h=(INSTR(w,MID$(na,1,1))-INSTR(w,n)) [2747] 

2330 IF tk(x, y + l)O""0R(h<>-l AND INSTR(w, [4643] 
na)< >14)0R RIGHT$(sk,10< >RIGHT$(na,1)THEN 
hh=0:GOSUB 3700:GOTO 2110 

2340 GOTO 2370 [305] 

2350 h=(INSTR(w,MID$(na,1,I))-INSTR(w,n)) [2747] 

2360 IF(h < >I AND INSTR(w,na)<>14)OR tk(x,y [4252] 
) = ""THEN GOSUB 3700:GOTO 2110 

2370 FOR e=22 TO 24 [747] 

2380 LOCATE 14,e:PRINT SPC(20) [1674] 

2390 NEXT [350] 

2400 ' [117] 

2410 '[8a,a] Spielkarte vom Tisch nehmen [3398] 
2420 ' [117] 

2430 IF y(1)=0 THEN 2600 [801] 

2440 h=ASC(RIGHT$(tk(x(1),y(1)-1),1)) [1854] 

2450 IF h= 2 2 6 OR h = 229 THEN PEN 1 ELSE PEN [1771] 
3 

2460 PAPER 2 [822] 

2470 FOR e=l TO 2 [898] 

2480 LOCATE x(1)* 4 +2,y(1)+e+1:PRINT SPC(3) [2092] 
2490 NEXT [350] 


2500 LOCATE x{1)*4+2,y(1)+4:PRINT tk(x(l), [2932] 
y ( 1) - 1 ) 

2510 LOCATE x< 1 ) *4 +2,y(1) + 5:PAPER 0:PRINT [2762 ] 
SPC(4) 


2520 PLOT x( 1 )*64+16,384-y(1)*16,1 [1424] 

2530 DRAW x(1 ) * 64 + 64,384-y(1)* 16,2 [1119] 

2540 DRAW x(l)*64+64,336-y(l)*16,1 [564] 

2550 DRAW x( 1)* 64+16,336-y(1)* 16 [622] 

2560 DRAW x(1)*64+16,384-y(1)* 16:GOTO 2680 [ 1 753 ] 
2570 ’ [117] 

2580 '[8a,b] Wenn Karte in oberster Reihe [3552] 
dann Platz leer machen 

2590 ' [117] 

2600 PLOT x(1)*64+16,384-y(1)*16,0:DRAW x( [3699] 
1)*64+64,384-y(1)*16:PEN 1 

2610 i=i+1:xf(i ) = x(1) [861] 

2620 FOR e=l TO 5 [915] 

2630 LOCATE x(1)*4+2,y(1)+e+1:PAPER 0:PRIN [2253] 
T SPC(4) 

2640 NEXT [350] 

2650 ' [117] 

2660 '[8b,a] Spielkarte an Zielkarte oder [3182] 
Freiplatz anlegen 

2670 ' [117] 

2680 PAPER 2 : h = ASC(RIGHT$(Sk, 1) ) [2197] 

2690 IF h=226 OR h=229 THEN PEN 1 ElSE PEN [17713 
3 

2700 IF na="F"THEN x(2) = xf(i ) :y(2)=-1:i=i- [583] 

1 

2710 n=MID$(na,1,1) [384] 

2720 IF n="l"THEN n="0" [986] 

2730 gs=INSTR(w,n) [761] 


2740 IF gs= k r-1 AND RIGHT$(s k, 1)=CHR$(226 ) [6818] 
THEN kr=kr+l:x(2)=B.5:y(2)=-l:IF kr<>14 TH 
EN r1=1 ELSE GOTO 3770 

2750 IF gs=pk-I AND RIGHT$(sk,1)=CHR$(229) [5792] 

THEN pk=pk+l:x(2)=B.5:y(2)=5:IF pk<>14 THE 
N r 1 = 1 ELSE GOTO 3770 

2760 IF gs=he-1 AND RIGHT$(sk,1)=CHR$(228) [5592] 

THEN he=he+1:x(2)=8.5:y(2)=11:IF he<>14 TH 
EN r1=1 ELSE GOTO 3770 

2770 IF gs=ka- 1 AND RIGHT$(sk,1)=CHR$(227) [ 6566] 

THEN ka=ka+l:x(2)=8.5:y(2)=17:IF ka<>14 TH 


EN rl-I ELSE GOTO 3770 

2780 FOR e=0 TO 2 [058] 

2790 LOCATE x(2 ) * 4 + 2,y(2) + e+4:PRINT SPC(3) [2630] 
2800 NEXT [350] 

2810 LOCATE x(2)* 4 + 2,y(2) + 3:IF LEFT$(sk,l) [9059] 
="1"THEN PRINT MID$(sk,1,3):LOCATE x(2)*4+ 

2,y(2) + 6:PRINT s k:ELSE PRINT MID$(Sk,1 , 2 ) + 

" ":LOCATE x(2)*4+2,y(2)+6:PRINT" "+sk 

2820 PLOT x(2)*64+16,368-y(2)*16,1 [1329] 

2830 DRAW x(2 ) * 64 +64.368-y(2)* 16 [891] 
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...UND 

PLÖTZLICH 

GIBT ES KEIN 
ENTWEDER/ODER 

MEHR- 
PAS VORTEX- 
FESTPLATTEN- 
SYSTEM 2000 
LÄSST IHNEN 

ALLE FREIHEITEN. 


Das einmalige Festplatten-Konzept für: 


PC 1512/1640 

PCW/JOYCE 

ÄmIgÄTH 


I PC/XT 

PPC 512/640 



Bisher mußten Sie für alle diese Systeme spezielle Festplatten kaufen. 

letzt kaufen Sie sich nur einmal das universelle System 2000 Basisgerät und 
das zum jeweiligen Rechner passende PERSONALITY MODUL. 

EINSTEIGEN - AUFSTEIGEN - UMSTEIGEN. 

Das vortex System 2000 macht alles mit. Es ist das Festplatten-Konzeptfür 
heute und die Zukunft. 


t"nt-o : s-c : h-e ; c-k"1 

1 Senden Sie mir umgehend weitere Informationen 
1 über Ihr System 2000: 



I 

I 

I 


UND PLÖTZLICH LEISTET IHR COMPUTER MEHR 


vortex Computersysteme GmbH 

Faiterstraße 51-53 • 7101 Flein • Telefon (071 31) 52061 

Computersysteme vortex AG 

Bundesplatz 3 • CH 6300 Zug Telefon (042) 21 8442 


PC 9/86 

















































I Programm 


2040 DRAW x(2)*64+64,304-y(2)*16 [619] 

2650 ORAW x(2)*64+16,304-y(2)*16 [941] 

2060 DRAW x(2)*64+16,368-y(2)*16 [669] 

2070 IF r1=1 THEN GOTO 3910 [1800] 

2880 IF r2=1 THEN 2900 [576] 

2890 GOSUB 3990 [987] 

2900 tk(x(2).y(2)+l)=tk(x(l),y(1)) [1816] 

2910 tk(x(l),y(1))="":r2=0 [508] 

2920 hh=0:0=0:GOTO 2110 [293] 

2930 ' [117] 

2940 '[ 2 u 8a und 8b] Position der Spiel- u [953] 
nd Zielkarte ermitteln 

2950 ’ [117] 

2960 WHILE INKEY$< >"":WEND [ 1786] 

2970 na=UPPER$(INKEY$) [1688] 

2980 IF na=""THEN GOTO 2970 [1171] 

2990 IF zel>0 THEN 3010 [330] 

3000 zel=TIME/300 [1225] 

3010 IF na=CHR$(127)THEN GOSUB 3700:G0TQ 2 [3080] 
110 

3020 IF m=0 THEN LOCATE 10,22:PRINT SPC(21 [1915] 

) 

3030 PEN 1:LOCATE 14,1c [1219] 

3040 SOUND 2,250,2,11 [1100] 

3050 IF na=“1"THEN na="0" [993] 

3060 zz=INSTR{w,na) [1716] 


3070 IF zz >0 THEN PRINT +na(zz); 

3080 IF na="F“THEN 3280 
3090 IF na= ” E"THEN GOTO 3510 
3100 IF INSTR(w,na)=0 THEN GOSUB 39SO:GOTO 
2970 

3110 WHILE INKEY$<>"":WEND 
3120 fa=UPPER$(INKEY$) 

3130 IF fa=""THEN GOTO 3120 

3140 SOUND 2,400,2,11 

3150 IF fa="E"THEN GOTO 3510 

3160 IF INSTR("KCHP",fa)=0 THEN GOSUB 3950 

:GOTO 3120 

3170 h=INSTR("KCHP",fa) 

3180 IF h=0 THEN GOTO 3120 

3190 IF h=l OR h=4 THEN PEN 1 ELSE PEN 3 
3200 PRINT" "+fa(h)+" 

3210 na=na+CHR$(h+225) 

3220 IF MID$(w,kr-1,1)+CHR$(226)=na OR MID 
$(w,pk-1,1)+CHR$(229)=na OR MID$(w,he-1,1) 
+CHR$(228)=na OR MI 0$(w,ka-1,1)+CHR$(227 ) = 
na THEN GOTO 3270 
3230 FOR x=0 TO 7 
3240 FOR y=0 TO 15 

3250 IF MID$(tk(x,y),2)=na THEN d=d+l:x(0) 

=x:y(d)=y:GOTO 3280 

3260 NEXT y.x 

3270 h h=1 

3280 RETURN 

3290 ' 

3300 'Spiel gewonnen 
3310 ' 

3320 ze2=TIME/300 
3330 2e=(ze2-zel)/60 
3340 IF ze<l THEN 3360 
3350 zeM=INT(ze) 

3360 zeS=(ze-zeM)*60 

3370 PEN 1:PAPER 2;LOCATE 2,9:PRINT CHR$(2 
2 6 ) ; :PEN 3:PRINT STRINGS(30,154);CHR$(228) 
3380 LOCATE 2,10:PRINT CHR$(149);SPC(30);C 
HR$(149) 

3390 PEN 3:LOCATE 2,11:PRINT CHR$(149);:PE 
N 1:PRINT" Sehr gut,Sie haben gewonnen! 

:PEN 3:PRINT CHR$(149) 

3400 LOCATE 2,12:PRINT CHR$(149 ) ;SPC(30) ;C 
HR$(149) 

3410 PEN 1:LOCATE 2,13:PEN 3:PRINT CHR$(14 
9)" Sie brauchten ";USING"## min ## sek"; 
zeM;zeS;:LOCATE 32,13:PRINT" "CHR$(149) 
3420 LOCATE 2.14:PRINT CHR$(149);SPC(30);C 
HR$ ( 149) 

3430 LOCATE 2,15:PRINT CHR$(149);SPC(7};:P 
EN 1:PRINT"Bitte eine Taste";SPC(7);:PEN 3 
:PRINT CHR$(149) 

3440 LOCATE 2,16:PRINT CHR$(149);SPC(30);C 
HR$(149) 

3450 LOCATE 2,17:PRINT CHR$(227);STRING$(3 
0,154);:PEN 1:PRINT CHR$(229):PEN 1:PAPER 
0 

3460 CALL &BB18 

3470 CLEAR:DEFINT b-e,g-m,p-r,y:DEFSTR a,f 
, n , s,t,w:GOTO 1370 


[1911] 

[533] 

[623] 

[1979] 

[1786] 
[1807] 
[1193] 
[1292] 
[1770] 
[2309] 

[ 735] 

[1223] 
[2511] 
[ 1281 ] 
[226] 

[7426] 


[ 723] 
[1158] 
[4583] 

[397] 

[218] 

[ 555] 
[117] 

[ 722] 

[117] 

[971] 

[1764] 

[1194] 

[539] 

[ 1585 ] 
[5268] 

[2928] 

[7408] 


[4115] 

[7372] 


[3654] 
[7513] 


[2666] 
[6675] 


[389] 

[2693] 


3480 ' [117] 

3490 'Spiel vorzeitig beenden .. [1514] 

3500 ' [117] 

3510 PEN 1:LOCATE 11,22:PRINT"Spiei beende [2270] 
n 

3520 LOCATE 14,23:PRINT"S1nd Sie [2513] 

3530 LOCATE 10,24:PRINT"sicher [J/N] ?? [2740] 


3540 ON INSTRC"?jJnN",INKEY$)+I GOTO 3540, [3114] 

3540,3470,3470,3550,3550 

3550 sk="":x(l)=0:y(l)=0:x(2)=0:y(2)=0:d=0 [6153] 
:LOCATE 14,23:PRINT SPC(8):LOCATE 10,24:PR 
INT SPC{15):GOTO 2110 


3560 ' [117] 

3570 '[zu 7a und 7b] UNTERPROGRAMM - KARTE [2536] 

N AUF TISCH 

3580 ' [117] 

3590 'Karten waehrend des Auslegens wenn m [2643] 

oeglich auf Stapel 

3600 ' [117] 

3610 PRINT MID$(ak(v),2,2)+" " [1437] 

3620 FOR C=3+ j TO 4+j [1553] 

3630 LOCATE 36,c:PRINT SPC C 3) [2289] 

3640 NEXT [350] 


3650 LOCATE 36,5+j:PRINT ak(v):SOUND 2,100 [1929] 
,5 

3660 x = x-1:PLOT 560,385-j* 16,1:DRAW 608,38 [6925] 
5-j * 16:DRAW 608,320-j* 16:DRAW 560,320-j* 16 
:DRAW 560,3B5-j*16:RETURN 


3670 ' [117] 

3680 '[zu 8a und 8b] UNTERPROGRAMM - FEHLE [2723] 
RBEHANDLUNG 

3690 ' [117] 

3700 GOSUB 3950:sk="":d=0 [1372] 

3710 LOCATE 7,22:PEN 2:PRINT"Fa1 sche Karte [9609] 
gewaehlt":LOCATE 17,23:PRINT SPC(4):L0CAT 
E 10,24:PRINT SPC(17):FOR e=l TO 2000:NEXT 
:RETURN 

3720 ' [117] 

3730 'UNTERPROGRAMME MUSIK [1545] 

3740 ' [117] 

3750 'Erfolgsmusik - Familie bis Koenig ge [1644] 
stapelt 

3760 ' [117] 

3770 IF(k r AND pk AND he AND ka) = 14 THEN G [4420] 
0T0 3850 ELSE ENT 1,=115+r,13,=125+r,13,=1 
lS+r^T^löT+r^T^lST+r^? 

3780 SOUND 1,0,107,,0,1 [1450] 

3790 ENT 2,=167+r,13,=193+r,13,=207+r,13,= [2941] 
167+r,13,=115+r,27 

3800 SOUND 1,0,79,,0,2 [1321] 

3810 r=r+10:r2=l:GOTO 2780 [1605] 

3820 ' [117] 

3830 'Erfolgsmusik - Spiel gewonnen ist [2396] 
3840 ' [117] 


3850 READ m,d:SOUNO 1,m*1.3,d/1.5:IF m=l T [3613] 
HEN 3320 ELSE 3850 

3860 DATA 119,20,127,20,119,40,159,40,159. [7812] 

40,159,20,179,20,190,20,159,20,119,40,119, 

40,106,20,113,20,106,40,159,40,159,40,106, 

20,119,20,127,20,106,20,80,40,80,40 

3870 DATA 71,20,63,20,60,20,63,20,71,20,80 [8362] 

,20,71,20,80,20,89,20,95,20,89,20,95,20,10 

6,20,119,20,106,20,119,20,127,20,142,20,15 


9,20,142,20,127,20,119,20,106,20,95,20,89, 

20,106,20,95,40,119,40,119,80,1,1 

3880 ' [117] 

3890 'Ton - Karte auf Familie [1345] 

3900 ' [117] 

3910 ENV 1 , 1 , 15,1,1,0,1,1,0,1,12,-1,B,2,-1 [ 3927 ] 

,20:SOUNO 2,100.60,,1:r1=0:GOTO 2900 

3920 ' [117] 

3930 'Ton - falsche Karte [1504] 

3940 ' [117] 

3950 ENV 1 , 1,20,1,1,0,1, 1,0,1,15,-1,8,2,-1 [ 3861 ] 

,40:SOUNO 2,600,60,,1:RETURN 

3960 ' [117] 

3970 'Ton - Spielkarte auf Zielkarte [1419] 

3980 ' [117] 

3990 ENV 1 , 1,15,1,1,0,1,1,0,1,12,-1,8,2,-1 [2709 ] 
,20:SOUND 2,30,60, ,1:RETURN 

4000 ' [117] 

4010 ‘[zu 3 und 4] Umrandung der Spielrege [4149] 
1 blaetter 

4020 ' [117] 

4030 PLOT 0,0,1:DRAW 638,0:DRAW 638,398:DR [2770] 
AW 0,399:ORAW 0,0:RETURN 
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ProSoft-Preise liegen richtig! 

S 0261/4047-1 -Qx] 862476PS0FT-Telefax0261/4047-252 

Wir suchen ständig günstige Einkaufsquellen für die angebotenen und neue innovative Produkte. 
Günstige Möglichkeit der Finanzierung durch Ratenkredit. Fordern Sie die Unterlagen an. 


Olivetti _ Olivetti _ Olivetti 

Bitte erfragen Sie Preis und Lieferzeit 
für alle Olivetti - Produkte 


Commodore Commodore 


PC 1 

512 K RAM, 1 Diskettenlaufwerk 360 K, 
MS-DOS und GW-Baalc und Monitor 

898.- 

PC-10 III 

30B8-2 mH 4,77/7,16 und 9,54 MHz Taktfrequenz, 840 KB 
Hauptspeicher, parallele und serielle Schnittstelle, Maus- 
nterface, AGA - Grafikadapter (Monochrom und Farbe), 
Echtzeltuhr, 2 Diskettenlaufwerke a'360KB, MF- . _ 
Tastatur, MonKor, MS-DOS 3.2 und GW-Baalc 1 698.“ 

PC-10 III 2/20 

wie PC-10 III, Jedoch mH 20 MB Festplatte 

2298.- 

PC-10 III 2/30 

wie PC-10 III, jedoch mit 30 MB Festplatte 

2348.- 

PC-10 III 2/50 

wie PC-10 III, jedoch mH 50 MB Festplatte 

2648.- 


PC-20 III 

wie PC-10 III, Jedoch nur 1 Diskettenlaufwerk 

360 KB und 20 MB Festplatte 2458.- 

Neul Commodore 386 PC-60/40 

Commodore PC 60/40 ao3ae cpu mit 4 , 77 /e/a/io/ 

12 und 16 MHz Takt umschaltbar, 1 MB Hauptspeicher, 
2 serielle und parallele Schnittstellen, ESA-Grafikadapter, 
1 Disk. 1.2 MB, 1 Festplatte 40MB, MF-Tastatur 
Monitor 14', MS-DOS 3.2 und GW -Basic 9696.- 


Commodore PC 60/122 .. 

wie PC 60/40 jedoch mit 122 MB Festpl. 1 1498.- 


Amiga 2000 mit Monitor 1084 

2298.- 

Amiga 500 


999.- 

Tandon 

Tandon 

Tandon 

PCA 20 plus 

4598.- PCA 40 plus 

5888.- 

PCA 70 plus 

6998.- PCA 110 plus 

7998.- 

Target 20 

4198.- Targel 40 

5498.- 

Target 20 plus 

4698.- Target 40 plus 

6228,- 

3 AC 286 

3998.- PAC 286 plus 

4598,- 

Data-PAC 

748.- PAC Floppy 

898.- 

Laptop 

Laptop 

Laptop 


Laptop 300 SLC 80266 mit 10 MHz, 640 KB Haupt¬ 
speicher, 1 Diskettenlaufwerk 1.2 MB, 20 MB Festplatte 
parallele und 2 x RS-232 C Schnittstelle, 

Tastatur, MS-DOS 3.2Z3.3 und GW-BasIc 5898.- 


Amstrad Amstrad Amstrad 


PC 1840 S Mono 1498.- PC 1840 S Farbe 1858.- 

PC 1840 D Mono 1768.- PC 1640 D Farbe 2098.- 

PC 1640 HD Mono 2298.- PC 1840 HD Farbe 2498.- 


PC 1840 S EGA 239B - 

PC 1840 D EGA 2548.- 

PC 1640 HD EGA 3098.- 


PC 1512 S Mono 1148.- PC 1512 D Mono 1438.- 

PC 1512 S Farbe 1548.- PC 1512 D Farbe 1798.- 

Portable PC 

PPC 512 S 1498.- PPC 512 D 1748.- 

Textsysteme 

PCW8256 948.- PCW8512 1258.- 

PCW9512 1498.- 


Samlprofesslonella Rechner 

CPC 464 8. GT 85 388.- CPC 464 & CTM644 676.- 

CPC8128 & GT 65 778.- CPC6128& CTM646 1068.- 

Drucker 

DMP3160 528.- DMP 4000 768.- 

t-Q 3500 768.- LQ 5000 1188.- 

DMP 2160 (f. CPC-Serle) 488.- 


Plantron Plantron Plantron 

PT-XT Tower Computersystem 

4,77/8 MHz, 256 KB RAM, Monochrom-Graflkkarte, Multi 

I/O-Karte, 1 Diskettenlaufwerk 360 KB, 

dt. Tastatur, u. dt. Bedienungsanleitung 1748.“ 

PT-XT/64 Tower-Computersystem _ 
wie PT-XT, jedoch zus. mit 64 MB Festplatte 2498.“ 

PT-AT Tower-Computersystem 

8/10 MHz, 640 KB RAM, Monochrom - Grafikkarle, Multi 
I/O-Karte, Floppy-Dlsk-Contr., 1 Dlsklaufw. _ _ 

1.2 MB, dt Tastatur u. dt. Bedlenungsanl. 2498.“ 

PT-AT/64 Tower-Computersystem 

wie PT-AT, Jedoch zus. mH 64 MB Festplatte 3548 

PT-286 AT Tower-Computersystem 

wie PT-AT/64, |edoch zus. mit 2. Disklaufwerk 

(3,5\ 720 KB) und Super-EGA-Karle 3868.“ 

PT-386 HT/2 Computersystem 

16 MHz, 1 MB RAM, Monochrom - Grafikkarte, Multi I/O- 
Karte, 1 Dlsklaufw. 1.2 MB, Echlzelluhr, 
dt. Tastatur u. dt Bedienungsanleitung 

PT-386 HT Computersystem 
wie PT-386 HT/2 jedoch mit Super-EGA- 
Karte 800 x 600 und Festplatte 64 MB 

Aufpreis für PT-388 mit 20 MHz Version 
MS-DOS 3.30 dt. + GW-BasIc 


5298.- 

6998.- 

1448.- 

208.- 


CMP CMP CMP CMP CMP 

CMP-AT 

80280 mit 6/12 MHz Taktfrequonz, Hauptspeicher 512KB, 
erweiterbar auf 4 MB on Board, Echtzeltuhr, 2 x parallel 
und 1 x serielle Schnittstelle, 1 Diskettenlaufwerk 1.2 MB, 
Hercules kompatible Grafikkarte, 

MF-Tastatur u. engl. Bedlenungsanl. 2398.“ 

CMP-AT/20 2998.- CMP-AT/40 3298.- 

CMP Baby-AT „„„„ 

wie CMP-AT, jedoch mit Baby-AT Gehäuse 2298.“ 
CMP Baby-AT/20 2898.- CMP Baby-AT/40 3198.- 

CMP-AT/40 (Baby-AT) 


Incl. Genoa Super EGA Hlres + und 

Hitachi Multi 560 Autoscan , _ - _ 

oder Mitsubishi EUM-1481 A 4998.“ 

CMP-Tower 

wie CMP-AT, jedoch mit Tower-Gehäuse 2798.“ 
CMP Tower/20 3298.- CMP Tower/40 3598.- 

CMP Tower Maxi 

wie CMP-AT, jedoch m. Tower-Maxl Gehäuse 2898.- 
Tower-Maxl/20 3398.- Tower-Maxl/40 3798.- 


Seagate Festplatten 


20 MB Festplattenkit 

ST-225 Incl. XT-Controller u. Kabolsatz 

30 MB Festplattenkit 

ST-238 Incl. XT-RLL-Conlroller u. Kabelsatz 

30 MB Festplattenkit 

St-138 Incl. Contr. + Kabels., 3,5‘, 40ms 

558.- 

598.- 

648.- 

ST-225 (20 MB) 
ST-277R (65 MB) 
ST-251/1 (40 MB) 

468.- ST-238 (30 MB) 478.- 

828.- ST-4144R (122 MB) 1848.- 
868.- ST 4098 (80 MB) 1198.- 

ST 251-0 

40 MB, 40ms 

728.- 

ST-125/0 (20 MB) 
ST-157R-0 (50 MB) 

4B8.- ST-125/1 (20 MB) 568.- 

848.- 

Priam V-185 nOMB, ISms, RLL-fählg 

1798.- 

Fiiecards 

20 MB Fllecard 

20 MB Business Card (Tandon) 

648.- 

748.- 

30 MB Filecard 


848.- 


Tape Streamer 

40 MB ’ Alloy APT-40" jetzt Qulck-Tapa 

kompatibel Incl. DC-2000 Cassette nur 748.- 

52 MB 'Wangtok FAD 3500' für XT oder AT 
Identlca 60 MB Back-up-System, extern 

798.- 

1396.- 


Co-Prozessoren 

AMS 9/88 

8087 (5 MHz) 198.- 8087 (8 MHz) 329.- 

8087 (10 MHz) 398.- B0287 (8 MHz) 329.- 

80287 (8 MHz) 489.- 80287 (10 MHz) 598.- 

80387-16 978.- 80387-20 1498.- 

80387-25 2598.- Fast-Sockel 80287-8/10 68.- 

EGA/VGA Grafik-Adapter 

EGA Wonder Enhanced EGA mH VGA 

428.- 

Paradlse OEM Card 8-16 

VIP - VGA Karte von ATI 

Video Seven VEGA VGA 

Paradlse EGA (80 Zeichen) ohne Autoswitch 
Paradise EGA Autoswltch (80 Zeichen) 

Paradlse EGA Autoswltch (132 Zeichen) 

VEGA de Luxe Autoswltch EGA-Karte 

598.- 
508.- 
698.- 
nur 238.- 
268.- 
396.- 
598.- 

Genoa Super EGA Hlres plus, mit VGA 

Genoa Spectrum 

Genoa Super VGA 

Genoa Super VGA Hlres 

448.- 

298.- 

598.- 

858.- 


Monitor 

NEC Multlsync II 1398.- NEC MuHlsync GS 548.- 

NEC MuHlsync + 2098.- NEC Multlsync XL 4498.- 

| Mitsubishi Autoscan EUM-1481 A 1298.- | 


14‘ ADI kompatibler Monitor, grün oder bernsteln 248.- 
14‘ Flat Screen Monitor, bernstain oder s/w 248.- 


| Hitachi Multi 560 

1298.- | 

| Neul Ganzseltenmonitor 

Bitte rufen Sie uns an I | 


Atari - Atari - Atari 

Atari PC 1 Incl. Maus + Software, MS - DOS 3.21 
Basic: GEM, Startup, Desktop, QEMwrllo, 

GEMpalnt, Incl. Monitor 1398.- 

Atari 1040 STF Tastatur, 1024KB RAM, 192KB ROM, 
Integrierte Floppy 720 KB. Monochrom- . . _ _ 
Monitor SM 124, Maus, Basic 149o.- 


Brother - Brother - Brother 

M-1409 798.- M-1509 968.- M-4018S 2898.- 

M-1709 1178.- M-1724L 1398.- M-4018C 3148.- 

Star - Star - Star _ 

LC-10 Incl. centr. oder comm, Schnittstelle 578.- 


Epson 

Epson 

Epson 

| LQ-850 

1458.- 

LQ-1050 1868.- 

LQ-500 848.- 

EX-800 1358.- 

LQ-2550 2998.- 

FX-350 
EX-1000 
GQ-3500 

1098.- 

1698.- 

3898.- 

FX-1050 1358.- 
LX-800 608.- 

LX-800 VC/P 678.- 

Elnzelblattelnzüge für 
LQ-500 198.- LQ-850 

328.- 

LQ-1050 398.- 


NEC - NEC - NEC - NEC - NEC 


P 2200 778.- 

Elnzelblattelnzug für P2200 

Neul P6+ 1498.- 

198.- 

Pln-Feed-Traklor P6 
Bidlrokt. Traktor P6 
Cut-Sheot-Feeder P6 

109.- 

298.- 

598.- 

Pln-Feed-Traktor P7 228.- 
Bldlrekt. Traktor P7 348.- 

Cut-Shoet-Feeder P7 698.- 

Kyocera 

- 

Laserdrucker 

F-1000 

F-1200 

5598.- 

8298.- 

F-2200 11798.- 

F-3000 18598.- 

Citizen 

Citizen - Citizen 

LSP-120D comm. odor paral. Schnittstelle 417.- 

Okidata - 

ML-182 parallel 
ML-292 Elite 

ML-294 Elite 

ML-393 

ML-393 color 

Laserllne 6 Elite 

Okidata - Okidata 

468.- ML-320 parallel 996.- 

1048.- Porsonalily Mod.f.292 298.- 
1578.- Peraonallty Mod.f.294 298.- 
2448.- Emulallonsm.f.393 148.- 

2848.- Emulatlonsm.f.393 148.- 
3398,- HP-Laserjet plus 398.- 

Okimate OM-20 


398.- 


ProSoft GmbH 

Bogenstraße51-53,Postfach 207, D-5400Koblenz-Goldgrube,Telefon (0261) 4047-1, Telex 862476, Telefax (0261) 4047-252 

CinDiu. - »« v ltiWin ii wnM«ni lV a&ttloimai5«tXnn]mwa«Hrn»<n K'jwprll 


Filiale München Theresienstraße56,8000 München2,Tel. 089/2809389direkt 
bei der technischen Hochschule. Bitte beachten Sie, daß nicht ständig sämtliche Ware in unse- 
rer Filiale München vorrätig ist Rufen Sie an! 















































































































[—Programm 


Krea tive 
Gestaltung 

RSX-Symbol-Destgner 

Ist es Ihnen auch schon einmal passiert, daß Sie gerade 
ein Programm schreiben und merken, daß Sie jetzt noch 
ein paar selbst definierte Symbole gebrauchen können? 
Ab jetzt kein Problem mehr. 

Ohne den RSX-Symbol-Designer müßten Sie Ihr Pro- 
gramm dann abspeichern, ein Symboldefinierungspro- 
gramm laden, damit die Symbole definieren, diese als se¬ 
quentielle Datei abspeichern, danach Ihr Programm wie¬ 
der laden und die erstellten Symbole dazu MERGEN. 
Doch mit diesem vollständig in Maschinensprache ge¬ 
schriebenen Programm können Sie sich das Ärgernis er¬ 
sparen. 

Der Befehlssatz 

Es werden folgende sieben RSX-Befehle erzeugt: 

INOTIZ 

Nach der Eingabe dieses Befehls können Sie einen maximal 
255 Zeichen langen Text eintippen. Bei einem nochmaligen 
Aufruf des Befehls wird dieser Text wieder angezeigt und 
kann verändert werden. 



Der Synbol Editor 
Geschrieben von 
Wolfgang Haider 
in Dezenber '87 


Nr.&F8 

m 

Nr.«SF 


Vom BASIC aus kann jederzeit der Symbol-Designer aufgerufen werden. 
Da macht nicht nur die einfache Handhabung Spaß, sondern auch die Ein¬ 
blendung von Hilfsseiten ist sehr brauchbar. 


direkt darunter; hier werden zwei Zeichen und ihre ASCII- 
Nummer angezeigt. Window drei, oben rechts, ist für die 
Dialogtexte zuständig. Window vier füllt den unteren Be¬ 
reich des Bildschirms aus. In ihm wird der gesamte Zeichen¬ 
satz oberhalb der ASCII-Nummer 31 dargestellt. 

Steuerung 

Tn den Windows eins und vier, erfolgt die Steuerung mit den 
CURSOR-und SHIFT-Tasten. Im Window vier erfolgt die 
Steuerung mit CURSOR und der Controll-Taste. 

Zeichen manipulieren 


IZO 

Der alte Zeichensatz wird eingeschaltet, ohne den neuen zu 
löschen. 

IZ1 

Der definierte Zeichensatz wird eingeblendet. 
ITEST,n,@X% 

Dieser Befehl testet, ob das Zeichen mit dem ASCII-Code n 
schon mit dem Editor umdefiniert wurde. In der Variablen 
X% steht dann das Ergebnis dieses Tests. Wenn X% einen 
Wert ungleich Null hat, so wurde das Zeichen n schon mit 
dem Editor geändert. Achtung! Bevor man den Befehl aufru- 
fen kann muß die Variable mit X% =0 initialisiert werden! 

UNIT 

Dieser Befehl stellt die Farbwerte ein, die für den Editor ge¬ 
braucht werden. Falls Ihnen die eine oder andere Farbe nicht 
gefällt, können Sie diese mit dem INK-Befehl ändern, bevor 
Sie den Editor aufrufen. 

ISHOW,n,@x$ 

Dieser Befehl schreibt in den String X$ den Symbol-Befehl 
mit allen Parametern, der das ASCII-Zeichen n momentan 
definiert. Vorher muß jedoch die Stringvariable X$ wie folgt 
definiert werden: 

X$=SPACE$(42) 

IEDIT 

Mit diesem Befehl rufen Sie den Editor auf. Der Bildschirm 
ist jetzt in vier Windows aufgeteilt. Window eins befindet 
sich oben links. In ihm wird eine vergrößerte Matrix eines 
Zeichens des Zeichensatzes dargestellt. Window zwei liegt 


Durch die Tasten eins bis neun kann man das Zeichen, das 
durch CURSOR zwei angewählt wird, wie folgt manipu¬ 
lieren: 

1 — dreht das Zeichen linksherum 

2 — dreht das Zeichen rechtsherum 

3 - spiegelt Zeichen waagerecht 

4 — spiegelt Zeichen senkrecht 

5 — links kursiv 

6 — rechts kursiv 

7 — invertiert das Zeichen 

8 - kopiert das Zeichen von Cursor drei in das Zeichen 

von Cursor zwei 

9 — mischt das Zeichen von Cursor zwei mit dem Zeichen 

von Cursor drei 

Tastenbelegung 

Die Taste “DEL“ löscht das Zeichen, auf dem Cursor zwei 
steht. Die Enter-Taste macht aus diesem Zeichen wieder das 
Ursprungszeichen des Originalzeichensatzes. Die Tasten des 
Zehnerblockes bewegen das Zeichen von Cursor zwei in die 
entsprechende Richtung, also z.B. sieben nach oben links, 
zwei gerade nach unten. Die fünf hat keine Funktion. 

Mit der Taste “T“ kann zwischen Joystick- oder Copy-Cur- 
sortasten gewählt werden. 

Mit der Taste “K“ bekommen Sie den Katalog zu sehen (Dis¬ 
kette). 

Taste “S“: abspeichern des Zeichensatzes, als Binärformat. 
Taste “L“: laden des Zeichensatzes. 

Taste “F“: ruft die Notiz auf. 
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Taste “H“: gibt Ihnen eine Hilfsseite aus. Durch nochmali¬ 
gen Druck wird eine zweite Seite eingeblendet. 

Taste “O“: initialisiert auf Wunsch den Zeichensatz. 

Eingabe der Listings 

Das Programm besteht aus drei Listings. Listing eins ist das 
Ladeprogramm und muß an erster Stelle stehen. Listing zwei 
besteht aus einem Datalader und ist sehr sorgfälltig abzutip¬ 
pen. Vor dem Starten mit RUN, ist das Programm abzuspei¬ 
chern. 

Listing drei ist ein Zusatzprogramm, welches mit den RSX- 
Befehlen ITEST und ISHOW alle mit dem Editor geänder¬ 


ten Zeichen in ein sofort lauffähiges BASIC-Programm um¬ 
wandelt. 

Die einzelnen BASIC-Zcilen werden direkt in den Speicher 
geschrieben. Nach dem Start mit RUN 65000 werden Sie ge¬ 
fragt, ab welcher BASIC-Zeile das erstellte Programm in den 
Speicher geschrieben werden soll und wie hoch der Abstand 
zwischen den einzelnen Zeilen sein soll. 

Wenn alle 224 Zeichen umdefiniert worden sind, braucht der 
Computer knapp zwei Minuten, um diese in den Speicher zu 
schreiben. 

(Wolfgang Halder/cd) 


für 464-664-6128 

r " 



10 REM LISTING 1 

20 REM LAOEPROGRAMM,LAED DEN CODE DES DESI 
GNERS NACH. 

40 REM OHNE DIESES PROGRAMM FUNKTIONIERT 0 

ER DESIGNER 

50 REM NICHT RICHTIG! 

60 REM 

80 CALL &BB4E:MODE 1:MEMORY &6FFF:LOAD"!sy 
mbol.mc",&8000 

90 FOR K= 72 TO 76:KEY DEF K, 1,K+168,K+172, 
K+176:NEXT 

100 CALL &8000-.POKE &8000 , &C9 : ! I NIT 

120 PRINT:PRINT" RSX-DESIGNER V1.1PRINT: 

NEW 


[1168] 
[1884] 

[2992 ] 

[ 760] 
[272 ] 
[4042] 

[2719] 

[2639] 

[2915] 


10 REM LISTING 2 [1163] 

20 REM DATA-LADER FUER DEN RSX SYMBOL DESI [2066] 
GNER 

30 REM GESCHRIEBEN VON WOLFGANG HALDER [2724] 

40 REM [272] 

60 REM [272] 

70 ON ERROR GOTO 180 [1537] 

80 MODE 0:LOCATE 4,10:PRINT"BITTE WARTEN ! [8132] 


":LOCATE 4,18:PRINT"SCHON GELESENE LOCATE 
3,20:PRINT"KILOBYTES :" 

90 MEMORY &7FFF:FOR a=32760 TO 36863:READ [7049] 

b:POKE a,b:LOCATE 13,20:PRINT USING"0#.### 

";(a-32768)/1000:NEXT:POKE &8840,&C9 


100 REM [272] 

110 REM SPEICHERN: [733] 

120 REM [272] 

130 MODE 2:PRINT"ACHTUNG:ZUM ABSPEICHERN E [6317] 
INE TASTE DRUECKEN!":PRINT:CALL &BB06::SAV 
E"SYMBOL.MC",b,&8000,&1000,&0 

140 PRINT:PRINT:END [1018] 

150 REM [272] 

160 REM JOKE: DATA exhausted [2055] 

170 REM [272] 

180 MODE 1:IF ERR=4 THEN PRINT"Ich an Ihre [9264] 
r Stelle wuerde jetzt weiter eintippen !? 

! ! ! " :PRINT:PRINT 

190 CONT [160] 

200 REM [272] 

210 REM OIE GEFUERCHTETEN DATA WUESTEN [3576] 

220 REM WERDEN SIE DIESE UEBERLEBEN ? [1129] 

230 REM [272] 


240 DATA 33,21,128,1,25,128,205,209,188,20 [2775] 
5,78,187 

250 DATA 17,32,0,33,0,144,195,171,187,252, [2016] 
170,25 

260 DATA 128,48,128,195,125,128,195,13,139 [1896] 
,195,16,139 

270 DATA 195,19,139,195,233,138,195,80,128 [2795] 
,195,162,143 

280 DATA 69,68,73,212,90,176,90,177,84,69, [1586] 
83,212 


290 DATA 78,79,84,73,218,73,78,73,212,83,7 
2.79 

300 DATA 215,0,17,150,142,195,174,135,62,1 
,205,14 

310 DATA 188,205,2,188,62,0,1,0,0,205,50,1 
88 

320 DATA 62,1,1,12,12,205,50,188,62,2,1,15 
330 DATA 15,205,50,188,62,3,1,10,10,197,20 

5.50 

340 DATA 188,193,195,56,188,205,197,139,20 

5.17.188.50 

350 DATA 6,140,205,6,185,205,170,133,205,1 

28.136.205 

360 DATA 74,128,33,20,0,34,251,139,33,138, 
0,34 

370 DATA 253,139,33,250,139,54,33,126,33.1 
08,2,34 

3B0 DATA 0,140,33,118,0,34,2,140,33,255,13 
9,54 

390 DATA 95,62,1,50,4,140,50,5,140,205,159 
, 139 

400 DATA 33,232,0,17,54,0,62,2,205,120,131 
, 33 

410 DATA 182,0,17,54,0,62,2,205,162,131,42 
, 251 

420 DATA 139,34,243,139,42,253,139.34,245, 
139,58,20 

430 DATA 140,205,30,187,196,116,138,58,250 
, 139,50,248 

440 DATA 139,245,205,182,134,241,205,73,13 

4.62.2.205 

450 DATA 208,131,237,91,0,140,42,2,140,62, 

2.205 

460 DATA 162,131,205,25,189,62,2,237,9 1>, 25 
1,139,42 

470 DATA 253.139,205,120,131,62,46,205,30, 
187,196,159 

480 DATA 138,62,34,205,30,187,196,247,136, 

62.37.205 

490 DATA 30,187.196,44,137,62,51,205,30,18 
7,196,47 

500 DATA 139,62,36,205,30,187,196,167,137, 

62.60.205 

510 DATA 30,187,196,236,137,62,44,205,30,1 
87,196,29 

520 DATA 136,205,25,189,205,25,189,5B,250, 
139,205,224 

530 DATA 136,56,4,62,1,24,2,62,3,205,222,1 
87 

540 DATA 237,91,251,139,42,253,139,43,43,1 

9.19.205 

550 DATA 192,187,58,250,139,205,252,187,62 
, 3,205,222 

560 DATA 187,17,56,0,33,230,0,205,192,187, 
58,250 

570 DATA 139,205,252,187,17,56,0,33,180,0, 
205,192 

580 DATA 187,58,255,139,205,252,187,205,17 
8,139,62,3 

590 DATA 205,222,187,62,3,205,144,187,58,2 

55.139.205 

600 DATA 185,136,33,13,6,205,117,187,42,23 


[2318] 

[2733] 

[ 1899] 

[1270] 
[1863] 

[ 1988 ] 

[2694] 

[ 2082 ] 

[1886] 

[1357] 

[1727] 

[1884] 

[1993] 

[1861 ] 

[1994] 

[2346] 

[ 1011 ] 

[2722] 

[2333] 

[2117] 

[2288] 

[2394] 

[2741] 

[2487] 

[1483] 

[2040] 

[1885] 

[1693] 

[2213] 

[1585] 

[2466] 

[1513] 
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8,139,125 

610 DATA 205,90,187,124,205.90,187,50,250, [2544] 
139,205,185 

620 DATA 136,17,82,0,33,250,0,205,192,187, [1616] 
42,238 

630 DATA 139,229,125,205,252,187,225,124,2 [2368] 
05,252,187,205 

640 DATA 159,139,205,6,187,62,32,50,249,13 [2077] 
9,205,141 

650 DATA 130,58,250,139,71,58,248,139,184, [1939] 
40,30,237 

660 DATA 91,251,139,42,253,139,62,0,205.12 [2360] 
0,131,42 

670 DATA 243,139,34,251,139,42,245,139,34, [1535] 

253.139.58 

680 DATA 248,139,50,250,139,58,16,140,205, [2090] 
30,187,196 

690 DATA 56,132,58,17,140,205,30,187,196,3 [1782] 

4.132.58 

700 DATA 19,140,205,30,187,196,96,132,58,1 [2240] 
8,140,205 

710 DATA 30,187,196,76,132,62,66,205,30,18 [2600] 
7,194,133 

720 DATA 139,42,0,140,34,243,139,42,2.140. [2621] 
34,245 

730 DATA 139,58,255,139,50,248,139,62,128, [2601] 

50.249.139 

740 DATA 205,141,130,58,248,139,71,58,255, [2785] 
139,184,202 

750 DATA 214,128,237,91,0,140,42,2,140,62, [1609] 
0,205 

760 DATA 162,131,42,243,139,34,0,140,42,24 [1822] 
5,139,34 

770 DATA 2,140,58,248,139,50,255,139,195,2 [2129] 
14, 128,62 

780 DATA 52,50,7,140,201,237,91,243,139,42 [2318] 
,245,139 

790 DATA 58,17,140,205,30,187,196,238,130, [2500] 
58,16,140 

800 DATA 205,30,187,196,12,131,58,19,140,2 [2568] 
05,30,187 

810 DATA 196,41,131,58,18,140,205,30,187,1 [2266] 
96,185,130 

820 DATA 201,58,249,139,185,192,1,20,0,42, [2683] 

243.139 

830 DATA 9,125,254,128,32,5,124,254,2,40,1 [2001] 
1 , 58 

840 DATA 248,139,60,50,248,139,34,243,139, [2314] 

201,33,0 

850 DATA 0,34,243,139,58,248,139,222,31,50 [1767] 
,248,139 

860 DATA 58,249,139,79,24,0,58,249.139,185 [1705] 

,192,1 

870 DATA 20,0,42,245,139,237,66,124,254,25 [2191] 
5,40,90 

880 DATA 58,248,139,198,32,50,248,139,34,2 [1668] 
45,139,201 

B90 DATA 58,249,139,185,192,1,20,0,42,245, [1947] 
139,9 

900 OATA 125,254,158,40,76,58,248,139,222, [1950] 
31,50,248 

910 DATA 139,34,245,139,201,58,249,139,185 [1914] 
,192,1,20 

920 DATA 0,42,243,139,237,66,124,254,255,4 [2241] 
0,11,58 

930 DATA 248,139,61,50,248,139,34,243,139. [2498] 

201,33,108 

940 DATA 2,34,243,139,58,248,139,198,31,50 [2015] 

,248.139 

950 DATA 58,249,139,79,24,178,58,248,139,2 [1517] 
22,192,50 

960 DATA 248,139,33,138,0,34,245,139,201,5 [1887] 

8.248.139 

970 DATA 198,192,50,248,139,33,18,0,34,245 [1940] 
,139,201 

980 DATA 205,222,187,205,192,187,33,0,0,17 [2298] 
,18,0 

990 OATA 205,249,187,17,0,0,33,238,255,205 [2002] 

,249,187 

1000 DATA 17,236,255,33,0,0,205,249,187,17 [1952] 

, 0,0 

1010 DATA 33,18,0,195,249,187,205,222,187, [2083] 
205,192,187 

1020 DATA 33,0,0,17,18,0,205,249,187,17,0, [1827] 
0 

1030 DATA 33,238,255,205,195,187,17,238,25 [1093] 
5,33,0,0 


1040 DATA 195,249,187,245,62,0,205,208,131 
,241,201,62 

1050 DATA 2,195,208,131,245,58,4,140,71,33 

, 1,0 

1060 DATA 17,16,0,25,16,253,237,82,229,58, 
5,140 

1070 DATA 71,33,0,0,17,16,0,25,16,253,235, 
33 

1080 DATA 159,1,237,82,209,241,205,222,187 
,205,192,187 

1090 DATA 33,0,0,17,14,0,205,249,187,33,24 
2,255 

1100 DATA 17,0,0,205,249,187,33,0,0,17,242 
, 255 

1110 DATA 205,249,187,33,14,0,17,0,0,195,2 
49,187 

1120 DATA 150,30,121,254,0,192,62,0,58,5,1 

40.254 

1130 DATA 8,200,205,195,131,60,50,5,140,19 
5,203,131 

1140 DATA 121,254,0,192,58,5,140,254,1,200 
,205,195 

1150 DATA 131,61,50,5,140,195,203,131,121, 
254,0,192 

1160 DATA 58,4,140,254,8.200,205,195,131,6 
0,50,4 

1170 DATA 140,195,203,131,121,254,0,192,58 
,4,140,254 

1180 DATA 1,200,205,195,131,61,50,4,140,19 
5,203,131 

1190 DATA 6,8,126,47,119,35,16,250,201,6,8 
, 54 

1200 DATA 0,35,16,251,201,17,8,140,1,8,0,2 
29 

1210 OATA 213,197,237,176,193,209,225,62,0 
,27,18,235 

1220 DATA 237,176,201,229,209,27,26,213,1, 
8,0,237 

1230 DATA 176,209,18,43,54,0,201,6,8,126,2 
03,63 

1240 DATA 119,35,16,249,201,6,8,126,203,39 
,119,35 

1250 OATA 16,249,201,6,4,35,35,35,35,126,2 
03,63 

1260 DATA 119,35,16,249,201,6,4,126,203,63 
,119,35 

1270 DATA 16,249,201,229,17,8,140,1,8,0,23 
7,176 

1280 DATA 225,1,0,8,27,26,119,35,27,16,250 

,201 

1290 DATA 229,205,30,133,225,229,205,215,1 
32,225, 195,157 

1300 DATA 133,203,198,201,203,206,201,203, 
214,201,203,222 

1310 DATA 201,203,230,201,203,23B,201,203, 

246.201.203.254 

1320 DATA 201,58,250,139,205,210,136,1,8,0 
,235,237 

1330 DATA 176,201,17,8,140,1,8,0,229,213,2 


37,176 

1340 DATA 209,225,1,0,8,197,54,0,35,16,251 
, 193 

1350 DATA 43,229,26,6,8,23,220,14,133,43,1 
6,249 

1360 DATA 19,225,229,26,6,8,23,220,11,133, 
43,16 

1370 DATA 249,19,225,229,26,6,8,23,220.8,1 
33,43 

1380 DATA 16,249,19,225,229,26,6,8,23,220, 
5,133 

1390 DATA 43,16,249,19,225,229,26,6,8,23,2 
20,2 

1400 DATA 133,43,16,249,19,225,229,26,6,8, 
23,220 

1410 DATA 255,132,43,16,249, 19,2 2-6,229,26, 
6,8,23 

1420 DATA 220,252,132,43,16,249,19,225,229 
,26,6,8 

1430 OATA 23,220,249,132,43,16,249,225,201 
,229,205,30 

1440 DATA 133,225,229,205,30,133,225,195,3 
0,133,62,1 

1450 DATA 205,14,188,62,255,33,0,0,17,15,3 
9,205 

1460 DATA 68,188,62,0,33,0,0,17,7,7,205,68 
1470 DATA 188,62,0,33,9,0,17,14,7,205,68,1 
88 


[2126] 

[1793] 

[ 1824 ] 

[1610 ] 

[1854] 

[1916] 

[ 1076] 

[ 1965 ] 

[2177] 

[2181 ] 

[2509] 

[2009 ) 

[ 2284 ] 

[1616 ] 

[2443 ] 

[1306] 

[1774] 

[2140] 

[2319 ] 

[ 1993 ] 

[1914] 

[ 1963] 

[1726] 

[1363] 

[2177] 

[2329] 

[3154] 

[2737] 

[2272] 

[2054] 

[ 1620 ] 

[ 1992 ] 

[1977] 

[1294] 

[ 2644 ] 

[ 2097 ] 

[1864 ] 

[1319] 

[2163 ] 

[2302] 

[ 225 1 ] 

[2475] 

[ 1613] 
[ 977 ] 
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- Das ist die Software zur PC-International - 

— Jeden Monat neu — 



DATABOX: 

— mehr als der übliche 
Softwareservice 

— bringt ergänzend 
sämtliche Listings 
der jeweiligen Zeit¬ 
schrift und alle 
Programmbeispiele 
auf Kassette oder 
auf 3"Diskette. 

— Programme sind, 
soweit system¬ 
bedingt möglich, auf 
allen drei CPC- 
Modellen lauffähig. 
Einzelheiten entneh¬ 
men Sie bitte der 
nebenstehenden 
Aufstellung. 

— soweit die Program¬ 
me nicht Bestandteil 
einer Serie sind, 
befinden sich alle 
Programme als 

,ready to run’ auf der 
Databox. 

— erscheint jeden 
Monat und trägt das 
Titelbild des gleich¬ 
zeitig erscheinenden 
Heftes. 

— der Datenträger zum 
PC International ent¬ 
hält außerdem je¬ 
desmal ein zusätzli¬ 
ches Bonuspro¬ 
gramm, das nicht im 
Heft abgedruckt ist. 



I AMSTRAO 
l PCW 9512 i 


PCW/Joyce: 

Neues zum 30-ZelcheoprogrMnro 


Amstrad 

INTERNATIONAL 


CPC • PCW JOYCE • PC 


Alles über EPROMs 


CPC-Programme: 

Patience 

RSX-Symbol Designer 


Tips & TH cks: 

Window-Manager 
Tips zu BanKmanoger 
u.v. mehr!! 


Für alle CPC’s als Kassette und 
3“ Diskette. 

Auch als Abonnement mit Preisvorteil 
erhältlich. 


Inhalt der Databox zu Heft 9/88: 


Programm 

464 

664 

6128 

Die Berlinerin 

• 

• 

• 

Symbol-Designer 

Symbol-Designer- 

■ 

• 

• 

BASIC-Ersteller 

Bankman (Assembierfile 
mit GENA ladbar) 

• 

• 

• 

• 

Mathematik einmal anders 

• 

• 

• 

REDO from Start 
Augenschonend (64 Hz) 
CP/M 2.2 


• 

• 

• 

Window-Manager 

• 

• 

• 

Sprücheklopfer 

• 

• 

• 

1 KB (Wettbewerb) 
Bonusprogramm: 

Ein beliebtes Kartenspiel 

• 

• 

• 

(Schwimmen) 

• 

• 

• 

Es befinden sich noch INFO-Files (INF) 
auf der DATABOX 



Einzelbezugspreise für Databox: 

3“ Diskette 


Inland: 

Ausland: 


Einzelpreis 24.- DM 

Einzelpreis 

24.- DM 

zzgl Versandkosten 3.- DM 

zzgl Versandkosten 

5.- DM 

Endpreis 27,- DM 

Endpreis 

29,- DM 


Kassette 


Inland: 

Ausland: 


Einzelpreis 14,- DM 

Einzelpreis 

14.- DM 

zzgl Versandkosten 3,- DM 

zzgl Versandkosten 

5,- DM 

Endpreis 17,- DM 

Endpreis 

19,- DM 


Zahlungsweise: 

Am einfachsten per Vorkasse (Verrech¬ 
nungsscheck) oder als Nachnahme zu¬ 
züglich der Nachnahmegebühr (in das 
Ausland ist Nachnahme nicht möglich). 

Preisvorteil durch Databox-Abo: 

Unser beliebter Databox-Service kann 
selbstverständlich auch im Abonnement 
bezogen werden. Dadurch sparen Sie 
Mühe und haben außerdem noch einen 
Preisvorteil gegenüber dem Einzelbezug. 



Das Databox-Abo kostet: 

Als Kassette für 1/2 Jahr 
(6 Lieferungen): 

Im Inland und West-Berlin.90,— DM 

Im europäischen Ausland. 100,—DM 

Im außereuropäischen Ausland ... 120— DM 

Als Diskette für 1/2 Jahr (6 Lieferungen): 

Im Inland und West-Berlin.150,— DM 

Im europäischen Ausland.160— DM 

Im außereuropäischen Ausland... 180,— DM 

Als Kassette für 1 Jahr (12 Lieferungen): 

Im Inland und West-Berlin .180,— DM 

Im europäischen Ausland.200,— DM 

Im außereuropäischen Ausland ... 240,— DM 

Als Diskette für 1 Jahr (12 Lieferungen): 

Im Inland und Westberlin ..300,— DM 

Im europäischen Ausland.320— DM 

Im außereuropäischen Ausland.360— DM 


Bitte benutzen Sie für Ihre Bestellung 
die Abo-Karte 


PC international * Postfach 250 - 3440 Eschwege 

Bitte Bestellk«srte bra§mer§! 







































{—Programm 


1480 DATA 62,33,205,73,134,62,3,205,222,18 (H40] 
7,1,7 

1490 DATA 32,17,2,0,33,136,0,62,32,197,213 [2071] 

, 229 

1500 DATA 245,205,192,187,241,245,205,224, [1968] 

136.56.4.62 

1510 DATA 1,24,2,62,3,205,222,187,241,245, [1857] 
205,252 

1520 DATA 187,241,225,209,193,197,1,20,0,2 [1769] 
35,9,235 

1530 DATA 193,60,16,213,6,32,245,121,254,0 [1758] 
,241,200 

1540 DATA 197,1,20,0,237,66,193,17,2,0,24, [1933] 
193 

1550 DATA 229,58,255,139,205,165,187,235,2 [1899] 
25,6,8,26 

1560 DATA 182,119,35,19,16,249,201,229,58, [1918] 

255.139.205 

1570 DATA 165,187,235,225,6,8,26,119,35,19 [1927] 
,16,250 

1580 DATA 201,205,165,187,235,33,0,200,6,8 [2266] 

,197,229 

1590 DATA 26,203,127,205,135,134,203,119,2 [2244] 
05,135,134,203 

1600 DATA 111,205,135,134,203,103,205,135, [2505] 

134.203.95.205 

1610 DATA 135,134,203,87,205,135,134,203,7 [2180] 
9,205,135,134 

1620 DATA 203,71,205,135,134,19,225,1,80,0 [2114] 
,9,193 

1630 DATA 16,204,201,204,142,134,196,162,1 [2772] 
34,201,6,6 

1640 DATA 229,54,0,35,54,0,197,1,255,7,9,1 [1089] 
93 

1650 DATA 16,243,225,35,35,201,6,6,229,54, [1730] 

119.35 

1660 DATA 54,238,197,1,255,7,9,193,16,243, [1963] 

225.35 

1670 DATA 35,201,205,165,187,229.62,40,205 [2741] 

,30,187,225 

1680 DATA 194,55,134,229,62,33,205,30,187, [1771] 

225,194,36 

1690 DATA 134,229,62,79,205,30,187,225,194 [2087] 
,125,132,229 

1700 DATA 62,18,205,30,187,225,194,17,133, [1639] 
229,62,41 

1710 DATA 205,30,187,225,194,116,132,229,6 [2192] 

2.64.205.30 

1720 DATA 187,225,194,30,133,229,62,65,205 [2696] 
,30,187,225 

1730 OATA 194,157,133,229,62,57,205,30,187 [1648] 
,225,194,236 

1740 DATA 132,229,62,56,205,30,187,225,194 [2586] 
,215,132,229 

1750 DATA 62,49,205,30,187,225,194,191,132 [1975] 
,229,62,48 

1760 DATA 205,30.187,225,194,205,132,229,6 [2224] 

2.14.205.30 

1770 DATA 1B7,225,194,133,132,229,62,20,20 [2623] 
5,30,187,225 

1780 DATA 194,181,132,229,62,4,205,30,187, [2049] 
225,194,171 

1790 DATA 132,229,62,11,205,30,187,225,194 [2997] 
,155,132,229 

1800 DATA 62,10,205,30,187,225,194,124,135 [2439] 
,229,62,3 

1810 DATA 205,30,187,225,194,132,135,229,6 [2112] 

2.13.205.30 

1820 DATA 187,225,194,140,135,229,62,5,205 [2771] 
,30,187,225 

1830 DATA 194,148,135,201,238,86,190,201,2 [1800] 

29.205.155.132 

1840 DATA 225,195,181,132,229,205,155,132, [2484] 

225.195.171.132 

1850 DATA 229,205,133,132,225,195,181,132, [2792] 

229.205.133.132 

1860 DATA 225,195,171,132,58,242,139,60,50 [1840] 
,242,139,254 

1870 DATA 7,216,33,0,144,62,0,195,119,136, [1489] 

213.62 

1880 DATA 0,33,0,9,17,14,39,205,68,188,209 [1290] 
, 33 

1890 DATA 100,192,62,1,229,245,26,254,43,4 [2843] 
0,83,254 

1900 DATA 32,56,57,254,64,32,6 ,'241,62,29,2 [2087] 

45.62 

1910 DATA 32,213,229,205,210,136,6,8,197,2 [2133] 
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35,126,230 

1920 DATA 240,18,19,126,203,39,203,39,203, 
39,203,39 

1930 DATA 18,235,1,255,7,9,193,19,16,230,2 
25,209 

1940 DATA 19,35,35,241,60,254,30,40,14,245 
,24,190 

1950 DATA 19,71,35,35,241,60,245,16,249,24 
, 179,225 

1960 DATA 62,1,1,80,0,9,229,245,24,168,241 
, 225 

1970 DATA 201,58,247,139,254,255,40,11,238 
,255,50,247 

1980 DATA 139,17,21,140,195,174,135,238,25 
5,50,247,139 

1990 DATA 17,212,140,195,174,135,33,91,136 
,205,212,188 

2000 DATA 208,17,66,142,205,174,135,62,62, 

205.30.187 

2010 DATA 32,29,62,61,205,30,187,40,242,24 
,8,84 

2020 DATA 65,80,197,68,73,83,195,33,91,136 
,205,212 

2030 DATA 188,220,27,0,195,3,187,33,87,136 
,205,212 

2040 DATA 188,220,27,0,195,3,187,6,8,119,4 
3,16 

2050 DATA 250,195,41,137,205,178,139,62,3, 

205.222.187 

2060 DATA 17,18,0,33,250,0,205,192,187,33, 
226,142 

2070 DATA 229,126,254,0,40,7,205,252,187,2 

25.35.24 

2080 DATA 243,62,3,205,144,187,33,13,2,205 
,117,187 

2090 DATA 33,226,142,126,254,0,200,205,90, 

187.35.24 

2100 DATA 246,33,238,139,245,31,31,31,31,2 
05,197,136 

2110 DATA 241,230,15,254,10,56,2,198,7,198 
,48,119 

2120 DATA 35,201,229,111,38,0,17,0,56,41,4 
1,41 

2130 DATA 25,235,225,201,245,205,165,187,2 
41,205,210,136 

2140 DATA 6,8,26,190,32,6,19,35,16,248,55, 
201 

2150 DATA 55,63,201,205,123,143,17,2,142,2 
05,174,135 

2160 DATA 62,45,205,30,187,32,8,62,46,205, 

30.187 

2170 DATA 40,242,55,245,205,74,128,241,216 
,205,174,187 

2180 DATA 229,205,78,187,205,213,133,225,1 
7,32,0,205 

2190 DATA 171,187,195,142,143,195,119,136, 

205.123.143.205 

2200 DATA 58,136,33,3,10,17,13,39,205,102, 

187.205 

2210 DATA 108,187,17,218,141,205,174,135,6 
2,1,205,144 

2220 DATA 187,205,178,139,17,0,112,205,155 
,188,205,159 

2230 DATA 139,205,3,187,205,6,187,33,0,0,1 

7.24 

2240 DATA 39,205,102,187,205,74,128,195,14 
2,143,33,3 

2250 DATA 10,17,13,38,205,102,187,205,108, 
187,17,228 

2260 DATA 141,205,174,135,62,1,205,144,187 
,205,178,139 

2270 DATA 205.5,143,218,163,137,33,0,126,6 
,0,126 

2280 DATA 254,0,40,4,35,4,24,247,33,0,126, 
17 

2290 DATA 0,112,62,10,195,90,187,225,195,1 

2.138.205 

2300 DATA 123,143,205,151,143,205,58,136,2 
05,106,137,205 

2310 DATA 119,188,48,84,120,254,7,32,36,33 
,0,144 

2320 DATA 205,131,188,205,122,188,205,159, 
139,205,74,128 

2330 DATA 205,213,133,58,250,139,205,73,13 
4,33,0,0 

2340 DATA 17,24,39,205.102,187,195,142,143 
,205,125,188 
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[ 1504] 
[2813] 
[2500] 
[1601] 
[ 1298 ] 
[3094] 
[2749] 
[ 2011 ] 
[2173] 
[1721] 
[2285] 
[2172] 
[1719] 
[2455] 
[2074] 
( 1984] 
[1806] 
[2868 ] 
[2207] 
[1771] 
[1952] 
[2266] 
[1256] 
[2719] 
[ 1909 ] 
[1651] 
[1936] 
[ 2225 ] 
[1132] 
[2143] 
[2773] 
[1913] 
[1480] 
[2897] 
[2349] 
[2249] 
[ 1582 ] 
[2139 ] 
[2227] 
[2156] 
[2135] 
[ 2222 ] 
[2676] 
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2350 DATA 62,7,205,90,137,195,167,137,205, 
123,143,205 

236C DATA 151,143,205,58,136,205,106,137,2 
05,140,188,33 

2370 DATA 0,144,17,0,7,1,0,0,62,2,205,152 
2380 DATA 188,205,143,188,205,159,139,205, 
74,128,33,0 

2390 DATA 0,17,24,39,205,102,187,205,3,187 
,195,142 

2400 DATA 143,22,22,22,83,18,51,36,118,5,4 
7 , 59 

2410 DATA 52,57,58,118,19,50,63,34,57,36,2 
2,22 

2420 DATA 80,17,51,37,53,62,36,63,51,52,51 
, 56 

2430 DATA 118,32,57,56,22,22,80,1,57,58,48 
, 49 

2440 DATA 55,56,49,118,30,55,58,50,51,36,2 
2,22 

2450 DATA 80,63,59,118,18,51,44,51,59,52,5 
1 , 36 

2460 DATA 118,113,110,97,125,0,237,95,111, 
237,95,201 

2470 DATA 58,250,139,205,165,187,58,5,140, 
71,35,16 

2480 DATA 253,43,58,4,140,71,126,197,23,16 
,253,31 

2490 DATA 203,127,40,4,203,191,24,2,203,25 
5,193,31 

2500 DATA 16,253,23,119,195,3,187,205,123, 
143,17,210 

2510 DATA 141,205,174,135,33,4,10,17,12,38 
,205,102 

2520 DATA 187,205,108,187,62,1,205,144,187 
,33,0,120 


2530 OATA 205,103,143,48,22,126,254,0,40,1 
7,33,0 

2540 DATA 0,17,24,39,2.05,102,187,62,7,205, 
90,187 

2550 DATA 195,142,143,54,0,205,74,128,24,2 
32,205,25 

2560 DATA 189,38,141,205,109,138,195,207,1 
36,62,13,205 

2570 DATA 90,187,62,10,205,90,187,33,0,120 
,205,103 

2580 DATA 143,62,7,205,90,187,62,13,205,90 
,187,62 

2590 DATA 10,205,90,187,62,10,195,90,187,1 
95,178,139 

2600 DATA 195,197,139,254,2,192,205,6,185, 
221,126,2 

2610 DATA 221,110,0,221,102,1,229,205,224, 
136,225,48 

2620 DATA 3,54,0,201,54,255,201,205,123,14 
3,17,99 

2630 DATA 142,205,174,135,62,45,205,30,187 
, 194,102,139 

2640 DATA 62,62,205,30,187,40,241,62,0,50, 
16,140 

2650 DATA 62,2,50,17,140,62,1,50,18,140,62 
■ 8 


[ 1613] 

[ 2121 ] 

[1428] 
[1863] 

[2368] 

[ 1459 ] 

[1875] 

[1291 ] 

[1741] 

[ 1 799 ] 

[1233] 

[1661] 

[2248] 

[ 2707 ] 

[1832] 

[2748] 

[2064] 

[2522] 

[1975] 

[2698] 

[ 1400] 

[2219] 

[2207] 

[2192] 

[2793] 

[1644] 

[2836] 

[2281] 

[2725] 

[1861] 

[ 1229 ] 
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2660 DATA 
,143,195 
2670 DATA 
17,140 
2680 DATA 
62 , 76 
2690 DATA 
,58,6,140 
2700 DATA 
,140,254 
2710 DATA 
5,9,128,58 
2720 DATA 
3,201 
2730 OATA 
,128,40 
2740 DATA 
, 178 

2750 DATA 
0,52 

2760 DATA 
,53,183 
2770 DATA 
,150,178 
2780 DATA 
5 , 0,200 
2790 DATA 
5 

2800 DATA 
2810 DATA 
2820 DATA 


50,19,140,62,9,50,20,140,205,142 

74,128,62,72,50,16,140,62,73,50, 

62,75,50,18,140,62,74,50,19,140, 

50,20,140,205,142,143,195,74,128 

205,14,188,62,1,205,144,187,58,7 

0,200,205,222,138,205,156,135,19 

6,0,254,128,40,6,62,255,50,53,18 

62,255,50,149,178,201,58,6,0,254 

6,62,0,50,53,183,201,62,0,50,149 

201,58,6,0,254,128,40,17,62,32,5 

183,33,0,144,34,54,183,62,255,50 

201,62,32,50,148,178,33,0,144,34 

62,255,50,149,178,201,67,65,15,1 

0,38,0,0,202,32,202,200,0,38,0,9 

108,2,118,0,1,1,1,0,0,0,0,0 

0,0,0,0,0,2,1,8,9,7,72,105 

108,102,115,115,101,105,116,101, 


32,49,32,58 


2830 DATA 64,64,6,49,45,76,105,110,107,115 
,45,68 

2840 DATA 114,101,104,101,110,64,6,50,45,8 

2.101.99 

2850 DATA 104,116,115,45,68,114,101,104,10 
1,110,64,6 

2860 DATA 51,45,87,97,97,103,114,101,99,10 

4.116.45 

28.70 DATA 8 3,112,105,101,103,101,108,110,6 

4.6.52.45 

2880 DATA 83,101,110,107,114,101,99,104,11 
6,45,83,112 

2890 DATA 105,101,103,101,108,110,64,6,53, 
45,76, 105 

2900 DATA 110,107,115,45,107,117,114,115,1 
05,118,64,6 

2910 DATA 54,45,82,101,99,104,116,115,45,1 
07,117,114 

2920 DATA 115,105,118,64,6,55,45,78,101,10 
3,97,116 

2930 DATA 105,118,64,6,56,45,75,111,112,10 
5,101,114 

2940 DATA 101,110,64,6,57,45,77,105,115,99 
,104,101 

2950 DATA 110,64,4,68,69,76,45,76,111,101, 

115.99 

2960 DATA 104,101,110,64,2,69,78,84,69,82, 
45,79 

2970 OATA 114,105,103,105,110,97,108,43,7, 
72,105,108 


[1612] 

[2438] 

[ 1692 ] 

[1792] 

[2441] 

[2093] 

[1840] 

[1425] 

[ 1659 ] 

[2556] 

[2205] 

[1978] 

[ 1882] 

[ 1763] 

[1361] 
[1972] 
[2480] 

[ 1847] 

[1910] 

[2546] 

[2024] 

[2289] 

[1921 ] 

[ 1613] 

[2488] 

[ 1961] 

[ 1897] 

[2570] 

[1772] 

[2700] 

[2303] 

[ 2285 ] 


* STARDRIVE 5.25 External Disk Drive * 

5.25" Diskettenzweitlaufwerk für CPC 464/664/6128 


- 12 Monate Garantie 

- Formschönes Flachgehäuse mit int. Breitband-LED-Anzeige (Power, Drive on) 

- Sehr leiser Lauf des Qualitätsmarkenlautwerks 

- Vollintegriertes hochwertiges Schaltnetzteil 

- Geräte aus industrieller Produktion 

- eingebauter Diskettenseitenumschalter (kein Umdrehen der Diskette mehr) 

- Netzschaiter mit LED-Anzeige 

- 360 kB, 2 x 40 Spuren, Headlift (verhindert Datenverlust) 

- 2 Schreib/Leseköpfe 

- sofortige Betriebsbereitschatt 

- alle Kabel im Lieferumfang enthalten 

- mit Bedienungsanleitung 

- sehr günstiger Preis nur 298, — DM 

Weitere Angebote (Lautwerke, Netzteil, usw.) entnehmen Sie bitte Heft 6, Seite 35 oder un¬ 
serer Liste, die wir Ihnen gerne kostenlos zuschicken. 

Preis zzgl Porlo/Verpackung 


TOPANGEBOTE, TOPANGEBOTE 

CPC-464 /0 64/6 128-Software 

UMVEPSALDATEI aut 3 -OsketToi OM 40.90 - Komplettp-ogramm mit lebenden Einzelne- 
j-j^men Adresse-««-„altung. ViMcdalöi Mutikarchiv urd as Bonus eine Vereiisverwalung mit 
Lastschn'tausa'uO! Die Programme srnc aile in Deutsch und über eine Bedienerführung im Menüstil 
MJ-waNen DeußcheUmlautellu.b ßi sind selbstverständlich. 

3-DIsketten 

PEGASYS Cr 2 DO 

la-Warxendisk mit 12 Monaten Garanl b St DM 42.80 

100% geD'ütt j fehle*, verpackt n einer 10 Si DM BS.00 
Ser-Disk -Harrbox mir Klappschamier 100SI DM 750.00 

0,20-Disketten 

PEGASYS MO 2 DD, 4$ 7PI neutral mit Ervelope 


MAXELL 

CF2 SSL DM 32.50 
10 SI DM 60.00 
100 St DM550.00 



Zubeh ör 

PEGASYS- 

Oskettenbo« 

VA-3580- 
für ca 6C St 3 - oc 
35‘-D:sk mit Schloß 
u Ersatzschiüssel. 
tragbar antistatic 
DM 15.00 


PEGASYS 

DisKetienoox 

YA-70L 

für 70 St 5 25 -Dis¬ 
ketten, anüstalic 
mit Schloß j Ersatz- 
schiüssef 

DM17,00 


PEGASYS 

D-skettenbox 

YA-5CL 

für 50 SI 5 25"-Dis- 
ketten, antislatic, 
mit Scnloß u E'salz- 
schüssel 

DM15.90 


PEGASYS 
Monitcrständer 
MS-14 
areh- 
urd 

schwenkbar, 

rutschfest 

DM 35.00 


WEICON Mullischaum- 
spray. 400 ml 
Der Ozon-unschädliche 
Schaumreiniger für Ihr 
Computergehäuse sowie 
Tastatur und Monitor 
Dose 
DM9.96 


G + L electronic Computerhardware 

6759 Hefersweiler * Seelenerstraße 4 * Tel: 06359/2582 


Göddeker Computer und Zubehör GmbH 

Höftestr 32, D-4400 Munster 24 © 02 51 / 61 98 81 (8.30-18 Uhr), Telex 892 160 goede d 
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[—Programm 


2980 DATA 102,115,115,101,105,116,101,32,5 [2566] 
0,32,58,64 

2990 DATA 64,75,45,67,97,115,115,47,68,105 [2162] 
,115,99 

3000 DATA 32,75,97,116,97,108,111,103,64,7 [1814] 
6,45,76 

3010 DATA 97,100,101,110,32,100,101,114.32 [2365] 

, 90,101,105 

3020 DATA 99,104,101,110,115,97,116,122,10 [2006] 
0,97,116,101 

3030 DATA 105,64,83,45,83,112,101,105,99,1 [2185] 
04,101,114 

3040 DATA 110,32,100,101,114,32,68,97,116, [2008] 

101.105.64 

3050 DATA 84,45,83,116,101,117,101,114,117 [1811] 

, 110,103,32 

3060 DATA 101,105,110,115,116,101,108,108, [2884] 

101.110.64.78 

3070 DATA 45,78,111,116,105,122,32,122,101 [2209] 

, 105,103,101 

3080 DATA 110,32,117,110,100,32,97,101,110 [2689] 

,100,101,114 

3090 DATA 110,64,72,45,72,105,108,102,101, [2898] 

110.32.101 

3100 DATA 105,110,98,108,101,110,100,101,1 [2125] 
10,64,79,45 

3110 DATA 79,114,105,103,105,110,97,108,32 [1605] 
,90,101,105 

3120 DATA 99,104,101,110,115,97,116,122,64 [1589] 
,64,49,32 

3130 DATA 98,105,115,32,55,32,100,101,115, [1726] 
32,90,105 

3140 DATA 102,102,101,114,110,98,108,111,9 [2794] 
9, 107,101,115 

3150 DATA 64,98,101,119,101,103,101,110,32 [2061] 
,100,101,110 

3160 DATA 32,66,117,99,104,115,116,97,98,1 [2051] 
01,110,64 

3170 DATA 105,110,110,101,114,104,97,108,9 [2769] 

8.32.100.101 

3180 DATA 114,32,77,97,116,114,105,120,46, [1633] 

43.11.78 

3190 DATA 79,84,73,90,58,43,10,75,65,84,65 [1769] 
, 76 

3200 DATA 79,71,58,43,71,101,98,101,110,32 [1085] 
,83,105 

3210 DATA 101,32,100,101,110,32,68,97,116, [2104] 
101,105,110 

3220 DATA 97,109,101,110,32,101,105,110,33 [1596] 
,43,83,111 

3230 DATA 108,108,32,100,101,114,32,79,114 [3083] 
,105,103,105 

3240 DATA 110,97,108,32,90,101,105,99,104, [2509] 
101,110,115 

3250 DATA 97,116,122,119,105,101,100,101,1 [2119] 

14.104.101.114 

3260 OATA 103,101,115,116,101,108,108,116, [2424] 

32.119.101.114 

3270 DATA 100,101,110,64,40,74,47,78,41,32 [1743] 
,63,32 

3280 DATA 143,43,67,97,115,115,101,116,116 [2435] 
, 101,32,111 

3290 DATA 100,101,114,32,68,105,115,107,10 [2705] 

1.116.116.101 

3300 DATA 64,40,67,47,68,41,32,63,32,143,4 [1942] 

3.64 

3310 DATA 64,67,117,114,115,111,114,115,11 [2046] 

6,101,117,101 

3320 OATA 114,117,110,103,32,111,100,101,1 [2099] 
14,64,74,111 

3330 DATA 121,115,116,105,99,107,115,116,1 [3169] 
01,117,101,114 

3340 DATA 117,110,103,32,40,67,47,74,41,32 [787] 
,63,32 

3350 DATA 143,43,64,64,64,5,68,101,114,32, [2657] 
83,121 

3360 DATA 109,98,111,108,32,69,100,105,116 [2519] 
,111,114,64 

3370 DATA 64,6,71,101,115,99,104,114,105,1 [1414] 
01,98,101 

3380 DATA 110,32,118,111,110,64,64,6,87,11 [2109] 
1,108,102 

3390 DATA 103,97,110,103,32,72,97,108,100, [1952] 

101.114.64 

3400 DATA 64,6,105,109,32,68,101,122,101,1 [1868] 
09,98,101 


3410 DATA 114,32,39,56,55,43,78,114,46,38, 
0,17 

3420 DATA 32,132,26,111,19,26,103,17,0,144 
,237,82 

3430 DATA 17,33,138,26,254,0,200,205,120,1 
35,194,135 

3440 DATA 130,35,19,24,242,33,0,126,205,14 
1,187,6 

3450 DATA 0,54,0,205,6,187,254,252,40,34,2 

54.127 

3460 DATA 40,37,254,13,40,28,254,31,56,61, 
254,12B 

3470 DATA 48,57,87,120,254,28,40,51,122,11 

9.35.205 

3480 DATA 90,187,205,141,187,4,24,215,55,2 
01,54,0 

3490 DATA 195,141,187,54,0,120,254,0,40,25 
,205,141 

3500 DATA 187,62,8,205,90,187,62,32,205,90 
,187,62 

3510 DATA 8,205,90,187,205,141,187,43,5,24 
,176,62 

3520 DATA 7,205,90,187,195,15,143,58,6,0,2 

54.128 

3530 DATA 32,3,195,58,189,254,145,32,3,195 
,94,189 

3540 DATA 195,91,189,62,2,205,53,188,237,6 
7,240,139 

3550 DATA 62,0,205,53,188,62,2,195,50,188, 
62,2 

3560 DATA 237,75,240,139,195,50,188,205,10 
1,188,62,50 

3570 DATA 33,167,0,195,104,188,254,2,192,2 

21 , 110,0 

3580 DATA 221,102,1,126,254,42,192,35,94,3 
5,86,33 

3590 OATA 215,143,1,8,0,237,176,221,126,2, 

245.205 

3600 DATA 165,187,241,235,205,188,136,6,8, 
54,44,35 

3610 DATA 54,38,35,26,205,188,136,19,16,24 
3,201,83 

3620 DATA 89,77,66,79,76,32,38,0,86,69,82, 
83 

3630 DATA 73,79,78,32,49,46,53,32,66,89,32 
,87 

3640 DATA 79,76,70,71,65,78,71,32,32,72,65 
. 76 

3650 DATA 68,69,82,32 


[2069] 
[2445] 
f1913] 
[2096] 
[1734] 
[1359] 
[2268] 
[1431] 
[1234] 
[1654] 
[2105 ] 
[1699] 
[2560] 
[2400] 
[1997] 
[2680] 
[2478] 
[ 2791 ] 
[1593] 
[1588] 
[2521 ] 
[ 1096 ] 
[1732] 
[2173] 
[ 898] 


1 REM LISTING 3 (Zelle 1 nicht mit abtippe [3341] 

n) 

65000 IF PEEK{&8001)<>21 THEN END ELSE IF [3705] 

PEEK(6)=128 THEN fa=&B4DE ELSE fa=&B628 

65010 !ZO:MODE 1 :PRINT:PRINT TAB(5)"BASIC- [ 7259] 

SYMBOL-PROGRAMM-ERSTELLER":PRINT:PRINT:INP 

UT"Erste Zeile :",z:IF z=0 THEN 2=10 

65020 PRINT: INPUT''Ze11 enabstand :",AB:IF a [2888] 

b=0 THEN ab=10 

65030 IF 2>65000-£(224+2)*ab) THEN 65010 [1570] 

65040 MODE 2:P0KE &BD03,&C9:!Z1:a$=SPACE$( [3782] 
42): x%=0 :b=32:PEN 0 


65050 !TEST,b,@x%:IF xX=0 THEN 65090 [1331] 

65060 !SHOW, b,@a$ [793] 

65070 b$=STR$(z) +" "+a$ :KEY 150,b$+CHR$(13 [4507] 
)+"GOTO 650B0“+CHR$(13):POKE fa,0:POKE fa+ 

1.150:END 

65060 z=z+ab [795] 

65090 b = b+1:IF b < 2 5 6 THEN 65050 ELSE POKE [4164] 
&BDD3,&C3:M00E 1:PEN 1:LIST -64999 
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AMSTRAD PC 1640 mit 2 Laufwerken und 
eingebauter 30 MB Festplatte: 

(wie Abb.) Besteil-Nummer: A 02308 

Im vortex-Versand Mil* DH 2.999,- 

Außerdem im Angebot: 


BESTELLUNG 


Mehr 


Lejstung 

Das spezielle 

vortex-Versand- 

Angebot: 

AMSTRAD PC 1640 
mit 30 MB Festplatte. 


Monochrom-Monitor; 8 MHz; 

MSDOS 3.2; GEM; MOUSE (M$- 
kompatibel); DIN-Tastatur; 

640 KB RAM; 5 1 //' Floppy mit 360 KB; 

eingebaute 30 MB Festplatte 

(deutsches Markenfabrikat): 
Besteil-Nummer: A 02312 
Im vortex-Versand 

nur DM 2.699,- 


Amstrad Portable-PC 512 

Prozessor 8086, 8 MHz, LCD-Display, 

3.5"-Floppy mit 720 KB (Option: 2 Laufwerke), 
MSDOS 3.3, 512 KB RAM, AT-Tastatur mit 
102 Tasten. Stromversorgung über Netzteil, 

Batterie, Akku oder Zigarettenanzünder. 

mit 

1 Laufwerk, Best.-Nr. A 02305 DM 1.699,- 


Senden Sie mir aus Ihrem Angebot umgehend folgende Artikel 


Stück 

Best.-Nr. 

Einzelpreis 

Gesamtpreis 


A 02312 

DM 2,699,- 

DM 


A 02308 

DM 2.999- 

DM 


A 02305 

DM 1.699,- 

DM 


A 02306 

DM 1.999,- 

DM 


mit 


Gesamtsumme 


DM 


2 Laufwerken, Best.-Nr. A 02306 DM 1.999,— 


■A 


Absender: 


Tel.:_Unterschrift: 

Alle Lieferungen erfolgen auf Grund unsere' Allgemeinen Geschäftsbedingungen PC 9/88 




































I Tips & Tricks 



Ein “Ready to use“-Tip 


Der CPC 6128 heißt CPC 6128, weil er außer der Sechs im 
Namen auch noch eine zweite 64-KByte RAM-Bank unter 
seinem Gehäuse besitzt, was seinen Speicherplatz auf ins¬ 
gesamt 128 KByte erhöht. Leider sind diesen zweiten 64K 
nur mit Mühe oder dem auf der Systemdiskette befindli¬ 
chen ’BANKMANAGER* beizukommen. Zumindest As¬ 
sembler-Programmierer haben jetzt aber mit unserem 
Assembler-Programm die Möglichkeit, sich diese RAM- 
Bank für eigene Projekte bereitzuhalten. 

Das Quellcode-Modul macht im Grunde genau das, was das 
RSX-Bankmanager Programm für das BASIC Ihres CPC 
6128 macht: Es realisiert die Benutzung des Erweiterungs- 
RAMs, das nur unter den Programmen angesprochen werden 
kann, die zur Verwaltung der zweiten RAM-Bank eingesetzt 
werden, die sogenannten 'Manager-Programme'. Diese Pro¬ 
gramme übernehmen dabei eine Umschaltfunktion zwischen 
den beiden RAM- Bereichen. Das “normale“ System-RAM 
(die erste Bank) kann dabei ganz normal weiter benutzt 
werden. 

Im folgenden werden die einzelnen Einsprünge vorgestellt: 

bpeek 

Diese Routine lädt das Register E mit dem Bytewert aus der 
Speicherzelle (HL) der zweiten Bank. 

bpoke 

macht das Umgekehrte von “bpeek“: Es wird der Bytewert 


für 6128 

i 


1000 

1010 ********************************* 

1020 ********************* guß BANKMAN 
1030 **************************** 6128 

1040 *************** 128k bank manager 
1050 *********************** 153 bytes 
1060 ********************************* 
1070 

1080 ; LD E,(HL) 

1090 

1100 bpeek: 

1110 
1120 

1130 bankO: 

1140 
1150 
1160 

1170 ; LD (HL),E 
1180 


1190 bpoke: 

call 

bankl 

1200 

out 

(c),c 

1210 

ld 

(hl),e 

1220 

jr 

bankO 


1230 

1240 ; LD DE,(HL) 

Listing Bankgeschäfte 


aus dem Register E in die Speicherzelle (HL) der zweiten 
RAM-Bank geschrieben. 

bdeek 

lädt das Register DE mit dem Integerwert aus den Speicher¬ 
zellen (HL) und (HL +1) der zweiten RAM-Bank. 

bdoke 

speichert den Integerwert, den das Register DE enthält, in 
den Speicherzellen (HL) und (HL + 1) der zweiten RAM- 
Bank. 

bcopy 

speichert den Speicherbereich, der durch die Register DE 
(Anfang) und BC (Ende) spezifiziert ist, aus der ersten 
RAM-Bank in das Erweiterungs-RAM, und zwar ab der 
Adresse, auf die HL zeigt. 

rcopy 

lädt den Speicherbereich von DE (Anfang) bis BC (Ende) aus 
der zweiten RAM-Bank in die erste RAM- Bank ab der 
Adresse HL. 

Wenn Sie also eines der obigen Unterprogramme benutzen 
wollen, müssen Sie zuerst die notwendigen Register laden 
und dann per “CALL“ die Routine aufrufen. 

Ein Beispiel: Wollen Sie den Bytewert aus der Speicherzelle 
(#1CDE) des Erweiterungs-RAM’s im Akkumulator ha¬ 
ben, so müssen Sic wie folgt Vorgehen: 

LD HL, # 1CDE ; Adresse in HL 
CALL bpeek ; Wert holen 
LD A,E ; und nach A laden... 

So, und nun wünschen wir Ihnen viel Erfolg bei Ihren 'Bank¬ 
geschäften’. 

(Eckehart Röscheisen/jb) 


1250 





1260 

bdeek: 

call 

bankl 


1270 


out 

(c) ,c 


1280 


ld 

e,(hl) 


1290 


inc 

hl 


1300 


ld 

d,(hl) 


1310 


jr 

bankO 


1320 





1330 

; LD (HL),DE 



1340 





1350 

bdoke: 

call 

bankl 


1360 


out 

(c) , c 


1370 


ld 

(hl),e 


1380 


inc 

hl 


1390 


ld 

(hl),d 


1400 


jr 

bankO 


1410 





1420 

; SAVE: 

[ (DE) 

-(BC)J- 

> (HL) 

1430 





1440 

bcopy: 

ld 

a, b 


1450 


ld 

(bll+1) 

, a 

1460 


ld 

a,c 


1470 


ld 

(bl2+l) 

, a 

1480 


call 

bankl 


1490 

bnext: 

ld 

a, (de) 


1500 


out 

(c) , c 


1510 


ld 

(hl),a 


1520 


ld 

a, #c0 


1530 


out 

(c) , a 


1540 


inc 

hl 


Listing Bankgeschäfte 






call 

bankl 

out 

(c) , c 

ld 

e,(hl) 

ld 

bc,#7fcO 

out 

(c) , c 

ret 
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1550 


bit 

7, h 

1560 


jr 

z,bokay 

1570 


ld 

hl,#4000 

1580 


inc 

c 

1590 


ld 

a, c 

1600 


cp 

#c8 

1610 


jr 

nz,bokay 

1620 


sub 

4 

1630 


ld 

c, a 

1640 

bokay: 

inc 

de 

1650 


ld 

a, d 

1660 

bll: 

cp 

#00 

1670 


jr 

nz,bnext 

1680 


ld 

a,e 

1690 

bl2: 

cp 

#00 

1700 


jr 

nz,bnext 

1710 


ret 


1720 




1730 

; LOAD: 

(HL) 

->[(DE)- (B 

1740 




1750 

rcopy: 

ld 

a, b 

1760 


ld 

(rll+1),a 

1770 


ld 

a, c 

1780 


ld 

(rl2+l),a 

1790 


call 

bankl 

1800 

rnext: 

out 

(c) , c 

1810 


ld 

a,(hl) 

1820 


push 

af 

1830 


ld 

a, #c0 

1840 


out 

(c) , a 

1850 


pop 

af 

1860 


ld 

(de),a 

1870 


inc 

hl 

1880 


bit 

7, h 

1890 


jr 

z,rokay 

1900 


ld 

hl,#4000 

1910 


inc 

c 

1920 


ld 

a, c 

1930 


cp 

#c8 

1940 


jr 

nz,rokay 

1950 


sub 

4 

1960 


ld 

c, a 

1970 

rokay: 

inc 

de 

1980 


ld 

a, d 

1990 

rll: 

cp 

#00 

2000 


jr 

nz,rnext 

2010 


ld 

a ,e 

2020 

rl2: 

cp 

#00 

2030 


jr 

nz,rnext 

2040 


ret 


2050 




2060 

bankl: 

ld 

a, h 

2070 


and 

*11000000 

2080 


rlca 


2090 


rlca 


2100 


add 

a, #c4 

2110 


ld 

c, a 

2120 


ld 

b, #7f 

2130 


res 

7 ,h 

2140 


set 

6, h 

2150 


ret 


2160 





Listing Bankgeschäfte 


Aus dem Sybex-Angebot 

Einführung in Wordstar 

Der Bestseller /um populärsten Toxtverarbaitungsprogramm wurde für die Besitzer des CPC überarbeitet 
Und damit wichtige Hilfe und Nachschlagewerk bei der Arbeit mit Wordstar und MailMerge aul dem CPC 
Neben der klaren Einlührung ln den effektiven Umgang mit Wordstar gibt es u.a. auch wertvolle Hinweise 
für die Installation von Druckern und zu Systempatches 

280 Seiten/40 Abb. Best.-Nr. 421 DM42,-* 

Arbeiten mit dBasell 

dBasell ist im PC-8ereich wohl eines der leistungsstarksten Datenbankprogramme. Benutzern eines Schnei¬ 
der CPC vermittelt ein echter Experte in diesem Buch alle Kenntnisse, die für den erfolgreichen Einsatz von 
dBasell wichtig sind. Z B. Installation von und Programmieren mit dBasell, Editieren von Dateien mil Word¬ 
star, Tips und Tricks. Jeder Lernschritt wird durch praxisgerechte Beispiele ergänzt Und zwar so. daß dem 
Leser die Umsetzung dann wirklich problemlos möglich ist. Ein Buch, das in jeder Arbeitsphase weiterhillt. 

272 Seiten/m Abb. Best.-Nr. 422 DM48,-* 


Aus dem Data Becker-Angebot 

CPC 6128/664 Intern 

Blicken Sie hinter die Kulissen des CPC 664 und des CPC 6128 Kaum ein anderes Aulorenteam hat sich 
so intensiv mit diesen Rechnern auseinandergeseizt: vom Prozessor bis hin zum speziellen Schnittstellen¬ 
baustein. Alles wird erklärt und dokumentiert. Natürlich auch das Betriebssystem mit all den wichtigen Facts 
und Hinweisen, die man braucht Hier finden Sie die Information, die ein Profi erwarten kann 

456 Seiten Best.-Nr. 411 DM69.-’ 


Das Floppybuch zum CPC 

Was man alles aus der DDI-1 des 


I des CPC 464. CPC 664 und CPC 6128 holen kann, zeigt dieses Buch auf ein¬ 
drucksvolle Weise Neben den nötigen Erklärungen und einem ausführlichen DOS-Listing gibt es zahlrei¬ 
che Ulilities eine komfortable Dateiverwaltung, einen Disk-Manager. Selbst CP/M-Grundlagen und die re¬ 
lative Dateiverwallung werden erklärt. So findet wirklich jeder CPC-Besitzer in diesem Buch einen wertvollen 
Ratgeber. 

422 Seiten Best.-Nr. 412 DM49,-’ 

Das CP/M-Trainingsbuch zum CPC 

Beherrschen Sie CP/M Dieses Buch hilft Ihnen dabei Von den ersten Schnlten bis zum perfekten Umgang. 
Dabei werden natürlich die Versionen 2 2 und 3.0 tür Schneider CPC 464,664 und 6128 berücksichtigt. Dieses 
CP/M-Trainmgsbuch bietet ein wenig mehr als andere zum Beispiel HHtsprogramme, mit denen Sie in der 
Lage sind, auch fremde Diskettenformale zu lesen oder Submil-Daleien zu erstellen 

260 Seiten Best.-Nr. 413 DM49,-* 

CPC Tips und Tricks Band 2 

Der 2. Band aus der Tips und Tricks-Reihe ist für alle CPC-Besitzer interessant: Egal ob Sie nun einen 464, 
664 oder 6128 besilzen, Schreiben Sie eigene Belehlserweiterungen odei einen Maskengenerator. Lernen 
Sie wichtige Systemroutinen kennen Erfahren Sie, wie man Programme beschleunigt, und viele andere 
Dinge, die im täglichen Umgang mit dem Rechner fast unverzichtbar sind. Mit diesem Buch holt man noch 
mehr aus seinem CPC 

250 Seiten Best.-Nr. 414 


DM 39,-* 


Das Maschinensprachebuch zum CPC 

Wer seinen CPC wirklich beherrschen will, der mu 81 


. der muß sich mit dem Thema Maschinensprache beschädigen. 
Von den Grundlagen bis zur Programmierung des Z80>Prozessors. Das Maschinensprachebuch zum CPC 
hilfl Ihnen von Anfang an Ml einer genauen Beschreibung aller Befehle und ausführlichen Beispielen, mit 
Hinweisen zur Benutzung der Syst8mroutinen und einem Assembler/Dissssembler sowie einem Monitor 
zum Abtippen So macht der Einstieg SpaS 

330 Seiten Best.-Nr. 415 DM 39,-* 

Das große Grafikbuch zum CPC 

Dieses Buch ist für alle die bisher dachten, spektakuläre Grafik auf dem CPC sei nicht mögich. Zwei Top- 
Autoren beweisen das Gegenteil: Mit CPC-Chart - dem Diagrammgenerator, mit Destroyed - dem Arcade- 
Game, mit CPCs World - dem 3-D-Anlmationsprogramm, mil Vektorgrafik, mit Sprites Ja. Sie haben richtig 
gelesen wir reden von den Grafikmögllchkeilen Ihres CPC - inklusive 6128 und Joyce. 

589 Seiten Best.-Nr. 416 DM49,-* 

Programmwissen pur im Westentaschenformat 

Führer zum CPC Best.-Nr. 451 DM 19,80 * 

Führer zum CP/M Best.-Nr 452 DM 19.80 * 


Bücher für den CPC 

464 BASIC-Trainingsbuch 

BASIC aul dem CPC 464 ? Kein Problem 1 Denn mit diesem Traimngsbucn lernen Sie nicht nur Schritt für 
Schritt die einzelnen Befehle und ihre Anwendungen kennen, sondern bekommen auch gleich einen sau¬ 
beren Programmierst!! mit allem...was dazu gehört von der Problemanalyse über den Datenflußplan bis zum 
fertigen Programm. Dazu viele Übungsaufgaben mit Lösungen und zahlreichen Beispielen Schlichtweg 
unentbehrlich! 

285 Seiten Best.-Nr: 460 DM39,-* 

Das BASIC-Buch zum 6128 

BASIC macht Spaß. Man muß es nur i ichtig erklärt bekommen Und genau das tut das große BASIC-Buch 
zum CPC 6128. In diesem Buch steckt mehr als Einsteigerwissen: Variablen, Zahlensysteme, Bits und By¬ 
tes, Tokens, Stringbearoonung. Sortierung, Laufschrift, selbstdeflnierte Zeichen, Windows, Fehlerbehand¬ 
lung. Kopierschutz, Grafiken, Soundprogrammierung, relative Dateien .... Das verstehen wir unter Vielfalt. 

276 Seiten Best.-Nr. 461 DM39,-* 

464 Tips & Tricks 

Hardwaroaufbäu des CPC 464, Betriebssystem und BASIC-Tokens. Bildschirmaufbau, Anwendungen der 
Wlndow-Möglichkeilen. eine komplette Dateiverwaltung, Soundeditoi * CPC Tips fi Tricks bringt Ihnen diese 
und andere Ideen in Haus Und damit das Ganze auch Spaß macht, kommen noch eine Reihe spannen¬ 
der Spiele dazu Mit diesem Buch holl man mehr aus dem 464 

271 Seiten Best.-Nr: 462 DM39,-* 

464 Peeks & Pooks 

Wer PEEKS und POKES zum CPC 464 kennen und anwenden will, der findet hier umfassende Information! 
Sie reicht vom Adreßbereich des Prozessors über Betriebssystem und Interpreter bis hin zur Einführung in 
die Maschinensprache. Dazu Programmierhilfen, Routinen sowie rer -m Material zu den Themen Gra- 
likfunklioneri Massenspeicheruna und Peripherie. Tricks und Formeln in BASIC und RAM-Pages! 

180 Seiten ' Best.-Nr: 463 DM29,-* 

CPC Hardwareerweiterungen 

Speziell für den Hobbyelekironiker der mehr aus seinem CPC machen möchte! Von nützlichen Tips zur Pla¬ 
tinenherstellung über Adreßdecodlerung. Adapter karten und Interfaces bis zur EPROM-Programmierboard 
und -Programmiernetzteil oder Motorsleuerung für Gleich- und Schrittschaltmotoren weiden machbare Er¬ 
weiterungen ausführlich und praxisnah beschrieben 

445 Seiten Best.-Nr: 464 DM49,-* 

464 Intern 

Wirklich alle Geheimnisse des CPC 464 lüftet dieses Slandardwerk: Neben dem kommentierten BASIC- 
ROM-listing enthärt es Kapitel zu Speicherautteilung, Prozessor, Besonderheiten das Z80, Gate Array, Video- 
Controller und Video-Ram, Soundchip, Schnittstellen, Betriebssystem, Routinenutzung, Character- 
Generator. u.v.m. Für den lortgeschrittenen Basic-Programmierer, für den Assembler-Programmierer ein 
absolutes Muß! 

548 Seiten Best.-Nr: 465 DM69,-* 


Zu beziehen über: 

DMV Verlag • Postfach 250 • 3440 Eschwege 

* Ohne Rücksicht auf die Anzahl der bestellten Bücher berechnen wir füc das Inland 3,- DM 
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I—Tips & Tricks 


Mathematik einmal anders 

Funktionen grafisch dargestellt mit 3D-GRAPH 

Nachdem im letzten Heft schon einige grafische Speziali¬ 
täten erschienen sind, wollen wir auch diesmal dieses 
Thema weiterverfolgen. Kein anderes wissenschaftliches 
Gebiet eignet sich dazu mehr, als die Mathematik. Das 
berühmte Apfelmännchen ist dabei eines von so vielen 
Zufallsergebnissen, wie auch die Hilbert-Kurve (eine 
Kurve, die um eine Kurve führt, die um eine Kurve führt, 
die um...). Aber selbst mit weniger aufwendigen Berech¬ 
nungen läßt sich schon einiges anstellen, bestes Beispiel 
siehe 3D-GRAPH. 

3D-GRAPH erzeugt aus einer mathematischen Funktion mit 
zwei unabhängigen Variablen, die in der Zeile 130 stehen, 
eine dreidimensionale Grafik. Die gesamte Funktion wird in 


Dreiecke aufgeteilt, die von der MC- Routine, die ab Zeile 
1000 steht, gezeichnet werden. 

Erleuchtet! 

Was dieses Programm von ähnlichen anderen Programmen 
unterscheidet, ist, daß es die Funktion als eine Ebene in ei¬ 
nem dreidimensionalen Würfel darstellt, wobei diese Ebene 
von einer Lichtquelle, die mit der Variablen in Zeile 140 pla¬ 
ziert werden kann, angestrahlt wird. Es ergeben sich so, da 
das Programm im Mode 0 geschrieben wurde, vierzehn ver¬ 
schiedene Helligkeitsstufen, in Abhängigkeit vom Einstrah¬ 
lungswinkel der Lichtquelle auf das jeweilige Dreieck. Die 
mathematischen Funktionen, die in Zeile 130 eingetragen 
werden, erstrahlen so im wahrsten Sinne des Wortes in ei¬ 
nem neuen Licht. Im Programm selbst brauchen Sie nur das 
jeweilige Minimum und Maximum der zur Berechnung nöti¬ 
gen Variablen einzutragen, alles andere erledigt das Pro¬ 
gramm von alleine. (Carsten Schaar/jb) 


für 464-664-6128 



1 • 

* 30 Graph * 

[333] 

2 ' 

************ 

[502 ] 

3 1 


[117] 

4 ' 

****************** 

[659] 

5 ' 

* Vorbereitungen * 

[ 689 ] 

6 ' 

****************** 

[659] 

10 

IF PEEK(0)=&C9 THEN 60 

[1145] 

20 

KEY DEF 68,0,141 

[ 772 ] 

30 

KEY 141,"3.14159265" 

[939] 

40 

GOSUB 1000 

[851] 

50 

POKE 0,&C9 

[ 76] 

60 

MODE 1 

[506] 

70 

BORDER 0 

[1008] 

BO 

INK 0,0 

[53] 

90 

INK 1,26 

[56] 

100 

FOR i=2 TO 15 

[610] 

110 

INK i , <13-1 )*20/13 + 6 

[1426] 

120 

NEXT 

[350] 

121 

'************ 

[502 ] 

122 

'* Funktion * 

[815] 

123 

************* 

[502] 

130 

DEF FNz(x,y) = LOG(x)*y 

[1123] 

131 

1 *************** 

[345] 

132 

’* Lichtquel1e * 

[834] 

133 

'*************** 

[ 345] 

140 

1 x= 80 :1y=0: 12=100 

[895] 

141 

’******************** 

[ 665] 

142 

'* Parametereingabe * 

[1217] 

143 

'******************** 

[665] 

150 

LOCATE 14,2:PRINT"3D Funktion" 

[2288] 

160 

LOCATE 14,3: PRINT"-" 

[1645] 

170 

INPUT"X min";xmin 

[1246] 

180 

INPUT"X_max";xmax 

[1065] 

190 

INPUT"Y min";ymin 

[1871] 

200 

INPUT"Y_max";ymax 

[2059] 

210 

INPUT”Z min“;zmin 

[954] 

220 

INPUT"Z max";zmax 

[1089 ] 

230 

INPUT"Anzah1 der Feldreihen (10. 

.50)" [3167] 

;g* 



240 

IF gX< 10 OR gX > 50 THEN 230 

[1467] 

250 

DIM kOOr*(g*+l,g%+1) 

[1000] 

251 

1 **************************** 

[1164] 

252 

'* Funkt 1onswerte berechnen * 

[2398] 

253 

***************************** 

[1164] 

260 

MODE 2 

[513] 

270 

LOCATE 1,1:PRINT"X=" 

[935] 

280 

LOCATE 1,2:PRINT”Y=" 

[ 799] 

290 

dx=(xmax-xmin) / gX 

[ 879 ] 

300 

dy=(ymax-ymin)/g% 

[406] 

310 

dz=(zmax-zmin)/l 60 

[1069] 


320 

gX=gX+l 


[694] 

330 

y=ymin-dy 


[1438] 

340 

FOR jX=l TO gX 


[ 732 ] 

350 

LOCATE 3,2:PRINT jX 


[1069] 

360 

y=y+dy 


[631] 

370 

x=xmin-dx 


[ 775] 

380 

FOR iX=1 TO gX 


[612] 

390 

LOCATE 3,1:PRINT iX 


[1170] 

400 

x=x+dx 


[1260] 

410 

koorX(iX,jX)=(FNz(x,y)-zm 

in)/dz-80 

[2265] 

420 

NEXT 


[350] 

430 

NEXT 


[350] 

440 

gX=gX-1 


[690] 

441 

'******************* 


[669] 

442 

'* Grafik zeichnen * 


[1277] 

443 

'******************* 


[669] 

450 

MODE 0 


[507] 

460 

MOVE 4,0:DRAW 163,79,12 


[568] 

470 

DRAW 639,79:MOVE 163,79 


[1011] 

480 

DRAW 163,399 


[607] 

490 

x3=160/gX 


[685] 

500 

xx3=80/3/gX+80 


[1327] 

510 

g1=119/gX:g2=40/gX 


[810] 

520 

FOR jX=gXTO 1 STEP-1 


[ 1092 ] 

530 

y2=1y-jX*x3+xx3 


[598] 

540 

FOR iX=1 TO gX 


[612] 

550 

IF ABS(kOOrX(iX+1,jX))>80 

OR ABS(koorX 

[4932] 

(iX. 

,jX+1))>80 OR ABS(kOO rX(iX 

, jX) )>80 OR A 


BS( t 

<OOrX(iX+l,jX+1))>80 THEN 

720 


560 

xx0X=(iX-l)*gl+(jX-1)*g2 


[1517] 

570 

xxlX=iX*gl+(jX-l)*g2 


[1033] 

580 

xx2X=(iX-1)*gl+jX*g2 


[1473] 

590 

xx3X=iX*gl+jX*g2 


[972] 

600 

yyOX=120-(jX-l)*g2-koorX( 

iX,jX) 

[2741] 

610 

yylX=120-(jX-l)*g2-koorX( 

IX+1,jX) 

[1799] 

620 

yy2X=120-jX*g2-koorX(iX,j! 

X+l ) 

[1418] 

630 

yy3X=120-jX*g2-koorX(iX+1 

.J%+1) 

[2667] 

640 

xlX=-(koorX(iX,jX)-koorX( 

iX+1,jX)) 

[2553] 

650 

x2X=-(koorXCiX,jX)-kOOrX( 

iX,jX+1)) 

[2512] 

660 

y1=1x-iX*x3+xx3 


[810] 

670 

y3=(koorX(1X,jX)+koorX(iX+l,jX)+koorX( 

[3221] 

iS.; 

iX+1))/3-1z 



680 

alp=(xlX*yl+x2X*y2+x3*y3), 

7(SQR((xlX*xl 

t 3665 ] 

X+x2X*x2X+x3*x3)*(yl*yl+y2*y2+y3*y3))) 


690 

fl=a1p*6.5+8.5 


[635 ] 

700 

CALL &A000,xxOX.yyOX,xxlX 

,yyIX,xx2X,yy 

[3630] 

2%,1 

: 1 



710 

CALL &AOOO,xx2X,yy2X,xxlX 

,yyIX,xx3X,yy 

[3137] 

3*, i 

: 1 



720 

NEXT 


[350] 

730 

NEXT 


[350] 

740 

MOVE 484,0:DRAW 640,79,1:MOVE 636,79 

[1883] 

750 

DRAW 636,399:MOVE 640,399 

:DRAW 484,319 

[1776] 

760 

DRAW 4,319:DRAW 4,0 


[ 626] 

770 

DRAW 4B4,0:DRAW 484,319 


[923] 


Listing 3D-Graph 


Lisling 3D-Graph 


50 PC 9’88 


















Tips & Tricks—| 


780 

MOVE 

640, 

, 39S 

1:DRAW 

162 

1,399 





[1123 

] 

790 

MOVE 

163. 

, 397 

DRAW 

4,2 

119 






[1157 

] 

800 

MOVE i 

0,0: 

:DRAW C 

),399,C 

1 






[602] 


810 

DRAW 

159 , 

, 399 









[459] 


820 

DRAW 

4,321 










[254] 


830 

CALL • 

&B806 










[393] 


840 

END 












[110] 


997 

' ****■ 

***> 

► *** 


i * * ^ 

■ ** * 

:**>! 

«** 





[894] 


998 

' * Dr> 

eieck Rout 

;i ne 

i 1 n 

1 MC * 





[ 1822 

] 

999 

'****. 

***> 

**** 


t * * * 

<*** 


<#* 





[894] 


1000 

MEMORY &9FFF 









[ 134] 


1010 

FOR 

1=&AOOO TO &A1F0 






[ 880] 


1020 

READ 

a$ 











[ 309] 


1030 

POKE 

i , VAL( 


’ + a$) 







[461] 


1040 

NEXT 












[ 350] 


1050 

RETURN 











[ 555 ] 


1060 

DATA 

FE , 

, 07 , 

CO, 

DD, 

7 E , 

00, 

CD, 

2C , 

BC , 

32 , 

Fl 

[ 3075 

] 

,A1, 

DD, 23 

, DD , 

, 23 












1070 

DATA 

FD, 

, 21 , 

F 2 , 

Al , 

.06, 

03, 

, C5 , 

DD, 

E 5 , 

3 E , 

FF 

[ 1803 

] 

, 06, 

03. OD 

, BE , 

,02 












1080 

DATA 

38 , 

, 04 , 

DD, 

7E , 

02 , 

48 , 

, DD , 

23, 

DD, 

23 , 

DD 

[2261 

] 

,23, 

OD, 23 

. io, 

, ED 












1090 

DATA 

DD, 

, El , 

3E , 

03 , 

91 , 

6 F , 

, 26 , 

04 , 

CD , 

A8 , 

Al 

[1911 

3 

, 00, 

E5 , Dl 

, 19 , 

, 7 E 












1100 

DATA 

FD, 

, 77 , 

01 , 

23 , 

23 , 

7E , 

, FD , 

77 , 

00 , 

36 , 

FF 

[2749 

] 

. FD, 

23, FD 

.23, 

,C1 












1110 

DATA 

10, 

, C4, 

FD. 

21 , 

F 2 , 

Al , 

, DO, 

21 , 

F 8 , 

Al , 

FD 

[ 2553 

] 

, T E , 

00,DD 

. 77 , 

, 02 












1120 

DATA 

FD, 

, 96 , 

00 , 

6 F , 

FD, 

7 E , 

,03, 

FD, 

96 , 

01 , 

F 5 

[ 1961 

] 

, 30 , 

01,2F 

, 67 , 

, CD 












1130 

DATA 

A8 , 

, Al , 

E 5 , 

FD, 

7E , 

02 , 

FD, 

96 , 

00 , 

CI , 

5 F 

[2670 

] 

, 16 , 

OO , CD 

, CB , 

, Al 












1140 

DATA 

Fl , 

, FD, 

7E , 

01 , 

38 , 

03 , 

85 , 

18, 

01 , 

95, 

DD 

[ 3524 

] 

, 77 , 

01 , DD 

. 7E , 

, 02 












1150 

DATA 

FD, 

, 96, 

00, 

6F , 

FD, 

7E , 

05 , 

FD, 

96 , 

01 , 

F 5 

[2972 

] 

. 30 , 

01,2F 

, 67 , 

, CD 












1160 

DATA 

AB , 

, Al , 

E5 , 

FD, 

7E , 

04 , 

FD, 

96, 

00, 

CI , 

5 F 

[3566 

] 

. 16 , 

00 , CD 

. CB , 

Al 












1170 

DATA 

Fl , 

, FD, 

7E , 

01. 

38 , 

03 , 

85 , 

18, 

01 , 

95 , 

DD 

[3653 

] 

, 77 , 

00,CD 

, 3B , 

Al 












1180 

DATA 

DD, 

, 7 E , 

02 , 

FD, 

BE , 

02 , 

28 , 

03, 

3C, 

18 , 

92 

[2213 

] 

, FD, 

7E , 02 

, DD, 

, 77 












1190 

DATA 

02 , 

, FD, 

96, 

02 , 

6F , 

FD, 

7E , 

05 , 

FD , 

96, 

03 

[1911 

] 

, F 5 , 

30,01 

. 2F , 

67 












1200 

DATA 

CD, 

A8 , 

Al , 

E5 , 

FD , 

7E , 

04, 

FD, 

96 , 

02 , 

CI 

[3987 

] 

, 5F , 

16,00 

.CD, 

, CB 












1210 

DATA 

Al , 

, Fl , 

FD, 

7 E , 

03, 

38 , 

03 , 

85 , 

18, 

01, 

95 

[2183 

] 

, DD, 

77,01 

. DD, 

, 7E 












1220 

DATA 

02 , 

, FD, 

96, 

00 , 

6 F , 

FD, 

7E , 

05 , 

FD, 

96, 

01 

[ 2473 

] 

. F 5 , 

30,01 

, 2F , 

, 67 












1230 

DATA 

CD, 

, A8 , 

Al , 

E 5 , 

FD , 

7E , 

04, 

FD, 

96, 

00, 

CI 

[4059 

] 

, 5 F , 

16,00 

■ CD, 

, CB 












1240 

DATA 

Al , 

, Fl, 

FD, 

7E , 

01 , 

38 , 

03, 

85 , 

18, 

01, 

95 

[2933 

] 

, DD, 

77,00 

.CD, 

, 3B 












1250 

DATA 

Al , 

, DD, 

7E , 

02 , 

FD, 

BE , 

04, 

C8 , 

3C, 

18, 

93 

[ 2674 

] 

, DD, 

7E , 00 

. DD, 

46 












1260 

DATA 

01 , 

B8 , 

30 , 

06 , 

DD, 

77 , 

01 , 

DD, 

70, 

00, 

DD 

[2908 

] 

, 6 E , 

02 ,CB 

. 3D , 

26 












1270 

DATA 

00 , 

E 5 , 

DD, 

6E , 

01 , 

C8 , 

3D , 

CB, 

3D, 

CB, 

3D 

[ 2047 

] 

, 26 , 

50 ,CD 

, A8 , 

Al 












1280 

DATA 

E5 , 

DD, 

7 E , 

01 . 

E 6 , 

07 , 

67 , 

2 E , 

00 , 

29 , 

29 

[2793 

] 

, 29 , 

Dl , 19 

. Dl , 

19 












1290 

DATA 

11 , 

00 , 

CO , 

19 . 

DO, 

7 E , 

02 , 

E 6 , 

01 , 

47 , 

3E 

[ 2676 

] 

.02. 

90,06 

,03, 

4F 












1300 

DATA 

87, 

87 , 

Bl , 

10 , 

FA , 

4 F , 

3 A , 

Fl , 

Al , 

47 , 

DD 

[1605 

] 

. 7E , 

00 , DO 

, 96 , 

01 












1310 

DATA 

F 5 , 

78, 

AE , 

Al , 

AE, 

77, 

D 5 , 

11 , 

00 , 

08 , 

19 

[ 3442 

] 

, 30, 

04,11 

, 50, 

CO 












1320 

DATA 

19 , 

Dl, 

Fl, 

B7 , 

C8 , 

3D, 

18, 

E 8 , 

C5 , 

D5 , 

5 D 

[2712 

] 

, 16, 

00,6A 

,06, 

08 












1330 

DATA 

29 , 

30, 

01 , 

19, 

10 , 

FA, 

Dl , 

CI , 

C9 , 

C5 , 

AF 

[ 2683 

] 

. 06 , 

08,CB 

. 14, 

17 












1340 

DATA 

95 , 

30 , 

01 , 

85 , 

3F , 

10 , 

F 6 , 

CB, 

14 , 

CI , 

C9 

[3153 

] 

, 7 B , 

B2,28, 

, 1F , 

21 












1350 

DATA 

00 , 

00, 

78 , 

06 , 

10, 

CB, 

11 . 

1 7 , 

CB , 

15 , 

CB 

[1698 

] 

, 14, 

E5 , ED, 

, 52 , 

3 F 












1360 

DATA 

38 , 

01 , 

E3 , 

33 , 

33 , 

10 , 

EE, 

EB , 

CB, 

11, 

69 

[ 3699 

3 

, 17 , 

67,C9, 

, C5 , 

El 












1370 

DATA 

C9 
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PR8-SOFT 

Telefon: 0931/464414 


Das Programmpaket mit dem herausragenden Testergebnis. 
In fünf der möglichen Bewertungskriterien fünf mal die Note 1 
(Heft 1/88 PC Schneider International). 

DISCOLOGY ist voll menügesteuert. 50 Bildschirmseiten Hilfs¬ 
text und Handbuch komplett in Deutsch. 

DAS PROGRAMM FÜR DEN INTERESSIERTEN ANWENDER 

DISCOLOGY 

CPC DISC TOOLS 

NEU! 

jetzt in p i 
Version 


Für alle CPC’s 
3'-Diskette 
nur 

DM 99.- 

ECHTE DESKTOP-GRAFIK AM SCHNEIDER/AMSTRAD CPC 

M I C R 0 D E S I G N 

Für CPC 6128 (oder CPC 464/664 

mit DK-Tronics Speichererweiterungj DM 99.- 

MICRODESIGN mit AMX-kompatibler Maus DM 248.- 

VIDEO DIgitiser 

Für alle CPC’s, ind. Software auf 3"-Disk. DM 348.- 

ind. Software auf EPROM DM 368.- 

Für PC XT/AT und Kompatible DM 448.- 

DISCOVERY PLUS 5 Programme zum Kopieren geschützter 
Kassetten auf Diskette. Für alle CPC's 3" -Diskette DM 59.90 

PRINT MASTER Druckprogramm mit 20 versch. Schriften, incl. 
Schriftendesigner. Für alle CPC’s 3"-Diskette DM 59.90 

Weitere Angebote und Spiele in unserem Katalog! 

Tel. Bestellung (24Stunden): 0931/464414, FAX: 0931/464413 
PR8-SOFT Kiaus-M. Pracht * Postfach 500 * D-8702 Margetshöchheim 


Uitw Com» EOGEl «*i» tut 


DISCOLOGV 



Lieferung per Nachnahme (Versandkosten DM 5.- + NN-Gebühr) oder gegen Scheck 
(+Versandk. DM 5.-). Auslandslieferungen gegen Scheck (+Versandkosten DM 10.-) 
- >S 

D Schicken Sie mir Ihren neuen Katalog (DM 3 - in Briefmarken liegen bei) 
BESTELLUNG (incl. kostenlosem Katalog) O per Nachnahme 

O mit beiliegendem Scheck 

£ (Computertyp. _ ) 


Name 


Tel. 


Listing 3D-Graph 


Straße _ 
PLZ, Ort 


Datum. Unterschrift 



































I—Tips & Tricks 


] 


REDO FROM START 
- nein danke 

Erweiterter INPUT-Befehl 

Es kann einen wirklich “fuchsig“ machen, wenn bei IN¬ 
PUT und LINE INPUT im BASIC-Bereich falsche Daten 
eingegeben werden. Denn allzu leicht passiert es, daß ver¬ 
sehentlich numerische Eingaben erfolgen, statt geforder¬ 
te Strings oder umgekehrt. Dadurch wird der Bildschirm¬ 
aufbau durch die Mitteilung “REDO FROM START“ 
zerstört. 

Oder nehmen wir an, es wird eine zwei Zeichen lange Zif¬ 
fernfolge verlangt und durch zu langes Betätigen oder Un¬ 
achtsamkeit, hat man auf einen Schlag fünf oder mehr Zei¬ 
chen eingegeben. Auch das kann zur Zerstörung des Bildauf- 
baus oder bei fehlenden Abfangroutinen für Eingabefehler, 
zu unschönen Ergebnissen führen. Nun gut, das erste Pro¬ 
blem läßt sich leicht umgehen, indem man ausschließlich 
Strings in der Eingabe verlangt und diese nötigenfalls erst 
später mit VAL in numerische umwandelt. Aber dennoch 
können immer noch zu lange Zeichenfolgen eingegeben wer¬ 
den und längere Fehlerabfangroutinen sind (bei jedem ver¬ 
langten Input) unvermeidlich. Das ist nun vorbei. Das nach¬ 
stehend aufgeführte in BASIC realisierte Programm, be¬ 
grenzt nicht nur die Zeichenlänge, sondern ist zudem auch 
mit seinen 869 Bytes ziemlich kurz, und Sie benötigen keine 
Fehlerabfangroutinen mehr. Das Programm läuft in der vor¬ 
gegebenen Version nur auf dem CPC 664 und 6128. 464 Be¬ 
sitzer müssen vorher den Emulator starten. Das File wird 
nach Belegung der Abfrage variablen einfach mit GOSUB 
(Zeilennummer) aufgerufen. Je nachdem, unter welcher Zei¬ 
lennummer es in Ihrem Programm Verwendung findet. Be¬ 
achten Sie bei einer Umnumerierung, daß die internen 
Sprungbefehle angepaßt werden müssen. 

Bedienungsanleitung 

Die Routine läuft ohne Abänderungen in allen drei Mods! 
Wichtig sind die anwenderbezogenen Variablen; 

zahl = zwei Werte stehen zur Verfügung: 

null (0) ist die Mitteilung, daß Strings verlangt werden. 

eins (1) stellt das Programm auf numerische Variablen ein. 

Hier müssen zwei weitere Variablen definiert werden: 

pruefl = Untergrenze und 

pruef2 = Obergrenze der zu erwartenden Eingabe. 

Damit werden dann eventuell zu hohe oder zu niedrige Werte 
abgefangen. Das ist wichtig bei negativen Eingaben, da die 
Angabe eines (-) als eine Stelle mitgezählt wird. 

dev = Hier stehen Werte von 0-7 zur Verfügung. 

Sie gibt den Stream an, von dem die Eingabe gelesen werden 
soll. 

halt = Anzahl der Zeichen, die maximal eingegeben werden 
können. Werte von 1-255 sind zulässig. Bedenken Sie, daß 
ein (+) oder (-) als eine Stelle gezählt werden muß. 


hilf$ = Enthält nach Abarbeitung der Routine den ge¬ 
wünschten String und kann dann z.B. mit versuch$ = hilf$ 
auf andere Strings übertragen werden. Nie länger im Pro¬ 
grammablauf behalten, da hilf$ bei Aufruf der Routine ge¬ 
löscht wird. 

hilf = Enthält nach Abarbeitung der Routine den gewünsch¬ 
ten numerischen Wert (bei zahl = l) ansonsten ähnlich dem 
hilf$. 

mal = Zwei Werte möglich. Null unterdrückt Printen der 
Eingabe auf dem Bildschirm und eins stellt diese an. 

switch = Kann zwei Werte annehmen. Null ergibt eine nor¬ 
male Eingabe. Eins stellt die Eingabe auf inversen Modus. 
Vorteil! Die maximale Länge der zu erwartenden Eingabe 
wird angezeigt. 

Tastaturbelegung 

DEL: Löscht das letzte eingegebene Zeichen vor dem 
Cursor. 

CLR: Vollzieht wirklich CLeaR.Eingabe von vorn. 

ENTER/RETURN: ist die Eingabebeendigung, wenn min¬ 
destens ein Zeichen eingegeben wurde. 

CURSORTASTEN: rechts wie Leertaste und links wie 
DEL. 

Die anderen haben keine Funktion; ansonsten wie auf dem 
Tastaturfeld vorhanden. 


Besonderheiten 

Ausdruck auf dem Bildschirm können Sie z.B. unsichtbar 
machen, um zu Beginn oder während des Programmablaufs 
in ruhe Codewörter eingeben zu können, die auch der beste 
Freund nicht sehen soll. Die zu erwartende Eingabe kann in 
der Maximallänge des Wortes invers eingegeben werden. So 
ist zu Beginn bereits zu erkennen, wie lang die Eingabe sein 
sollte. 

Vor Aufruf der Routine beachten 

Die zu Beginn genannten Variablen sind vorher mit Werten 
zu belegen. Wenn zahl mit eins geladen wird, müssen zusätz¬ 
lich noch pruefl und pruef2 versorgt werden (bei zahl=0 
nicht nötig). Dann ist es wichtig, den Cursor zu positionie¬ 
ren, wo die Eingabe auf dem Bildschirm erfolgen soll. Dazu 
gibt es zwei Möglichkeiten. Einmal direkt hinter dem Frage¬ 
ausdruck (Semikolon setzen). Das Semikolon ist wichtig, da 
dann kein CR durchgeführt wird. Oder Sie positionieren den 
Cursor einfach mit LOCATE. Danach können Sie beruhigt 
die Routine mit GOSUB (Zeilennummer) aufrufen. 

Zu guter Letzt noch ein kurzes Testprogramm, welches mit 
CHAIN MERGE die Routine selbsttätig nachlädt (folglich 
separat abspeichern). 

(Holger Schäkel/cd) 
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Tips & Tricks—i 


für 664-6128 



10000 ' *** Erweiterte Input/Line Xnput Si [2680] 

mulation *** 

10010 1 By Holger Schaekel [1160] 

10020 hi 1f=0:hi1f$="tipp$="CURSOR 1,1: [6281] 
IF switch THEN PRINT#deV,CHR$(24);SPACE$(h 
alt);STRING$(hait,8); 

10030 WHILE INKEY$<>"":WEND [1786] 

10040 tipp$=INKEY$:IF tipp$='"' THEN 10040 [2129] 

10050 IF (INKEY(18) AND INKEY(6))=0 THEN 1 [3066] 
0150 

10060 IF (INKEY(79) AND INKEY(8))=0 THEN t [8773] 


1pp$ ="":IF LEN(hi 1f$)>0 THEN PRINT#dev,CHR 
$(8 ) ;" ";CHR$(8);:hi1f$=LEFT$(hi1f$,LEN(hi 
lf$)-l) 

10070 IF INKEY(16)=0 THEN tipp$="":IF LEN( [2879] 
hi 1f$)>0 THEN 10140 


10080 IF INKEY(1)=0 THEN tipp$=" " [1679] 

10090 IF (INKEY(2) AND INKEY(O) AND INKEY( [5413] 

79) AND INKEY(16) AND INKEY(8))=0 THEN 100 
40 

10100 IF LEN(hi1f$)=halt THEN 10040 [2901] 

10110 hi 1f$ = hi1f$+tipp$ [1550] 

10120 IF mal=0 THEN tipp$=" " [745] 

10130 PRINT#dev,tipp$;:GOTO 10040 [2342] 

10140 PRINTÜdev,CHR$(7);STRING$(LEN(hi 1f$) [6014] 

,8)iSPACE$(LEN(hi 1f$)) ;STRING$(LEN(h1 1f$) , 

8) ; :hi 1f$="":hilf = 0:GOTO 10040 

10150 IF LEN(hi 1f$)=0 THEN 10040 [2213] 

10160 IF zahl THEN hi1f = VAL(hi 1f$):IF hilf [3898] 
<pruefl OR hilf>pruef2 THEN 10140 

10170 CURSOR 0,0:IF switch THEN PRINTÜdev, [3528] 
CHR$(24); 

10180 PRINT#dev:RETURN [2499] 


10 *** Testprogramm zu Simulat *** 

20 

40 m=2:CHAIN MERGE"simu1at.bas",50 
50 MODE m:an=l:aus=0:’ zur besseren Darste 
llung der Werte an die Variablen 
60 LOCATE 1,2:PRINT"Beispiel mit inverser 
Eingabe. Geben Sie Ihren Namen ein:" 

70 PRINT CHR$(10)"Name : ”;:zahl=aus;dev=0 
:halt=20:mal=an:switch=an:GOSUB 10000:name 
$ = h11f$:PRINT CHR$(10)"Ihr Name ist also " 
;name$ 

80 PRINT CHR$(10)"Nun ohne inverse Darstel 
lung eine Zahl zwischen 300 und 400" 

90 PRINT CHR$(10)"Zahl : ";:zah1=an:dev=0: 
halt=3:mal=an;switch=aus:pruefl=300:pruef2 
=400:GOSUB 10000 

100 PRINT CHR$(10)"Die eingegebene Zahl he 
1 sst ;hi1f 

110 PRINT CHR$(10)"So, ";name$;" jetzt geb 
e mal Invers ein Codewort ein 
120 PRINT CHR$(10)"Geheimes Codewort : 
zahl=aus:dev=0:halt=10:mal=aus:switch=an:G 
OSUB 10000 

130 PRINT CHR$(10) name$;"! Dein Wort ";hi 
lf$;" ist jetzt nicht mehr geheim !" 

140 PRINT“Bitte warten !":m=m-l:IF m<>-l T 
HEN FOR x=0 TO 10000:NEXT;GOTO 50:ELSE END 


[1790] 
[117] 
[2158] 
[4227] 

[6920] 

[8935 ] 

[5948] 

[8233] 

[4913] 

[3334] 

[5964] 

[5535] 

[6008] 


Listing Redo from Start 


Ihr Weg zum Erfolg ... 



DOS International 
Die erfolgreiche und all¬ 
seits beliebte Zeitschrift 
für alle Anwender von 
PC’s unter MS-DOS 


PC Amstrad 
International 
»Die« Nummer Eins, 
wenn es um CPC’s 
,PCW Joyce und PC 
1512/1640 geht. Im 4. 
Jahrgang und beliebt 
wie eh und je. 


Pascal International 
Keine andere Compu¬ 
terzeitschrift setzt sich 
so konsequent für mo¬ 
derne Computerspra¬ 
chen ein! Längst mehr 
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sider. 


Jetzt neu 
WINDOW 
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Maßstäbe für den Um¬ 
gang mit anspruchsvol¬ 
ler Software setzt! Von 
Profis gemacht, nicht 
nur für Profis gedacht! 








DMV Verlag 
Postfach 250 * 
3440 Eschwege 




















I—Tips & Tricks 


Schonzeit für die Augen 

CP/M Plus mit 64 Hz 


Der CPC ist ein Color-Computer, es steht ja sogar 
in seinem Namen geschrieben. Soweit, so gut. 
Besitzer eines Farbmonitors CTM 644 wissen 
jedoch ein Lied davon zu singen, wie sehr manche 
Farbzusammenstellungen die Augen belasten, die 
niedrige Zeilenfrequenz des Monitors sorgt schnell 
für gerötete Augen. Das Flimmern läßt sich hard¬ 
waremäßig beheben, auch softwaremäßig haben 
wir schon eine Lösung gebracht. Leider waren 
diejenigen, die sich hauptsächlich im CP/M-Gebiet 
aufhalten, dabei etwas zu kurz gekommen. Das än¬ 
dert sich nun, zumindest für die CP/M Plus-Be¬ 
sitzer. 


Das ProgrammPATCH.COM, das durch den nachfolgenden 
BASIC-Lader erzeugt wird, ermöglicht einige dauerhafte 
Änderungen des CP/M Plus- Betriebssystems. Deshalb muß 
sich auf der Diskette, die mit diesem Programm verändert 
werden soll, die Datei C10CPM3.EMS befinden. Andern¬ 
falls wird eine Fehlermeldung ausgegeben. Erzeugen können 
Sie das Patchprogramm, indem Sie den BASIC-Lader (Li- 
sting 1) abtippen und starten. Im folgenden werden die ein¬ 
zelnen Möglichkeiten des Programmes beschrieben. 

1. Einstellen der Farben 


3. Die Bildfrequenz 

Indem man die Bildfrequenz von 50 Hz auf 64 Hz erhöht, 
vermindert sich das Flimmern erheblich. Dies wird dadurch 
erreicht, daß statt 38 Zeilen (25 beschreibbar, Rest ist Rand) 
nur 31 Zeilen angezeigt werden. Da weiterhin 25 Zeilen be¬ 
schrieben werden, verringert sich die Breite des Randes, so 
daß oben und unten im Bild jeweils ein schwarzer Streifen zu 
sehen ist. Weil nun für die Darstellung eines Bildes weniger 
Zeit aufgewendet wird, kann es öfter aufgebaut werden. Den 
Monitor müssen Sie mit Hilfe des V-Sync-Drehknopfes an 
der Rückseite des Farbmonitors bzw. vorne am Grünmoni¬ 
tor, an die geänderten Bedingungen anpassen. Um nicht bei 
jedem Wechsel zwischen AMSDOS und CP/M den Monitor 
umstellen zu müssen, ist es besser, die Drahtbrücke LK 4 im 
Computer so zu verbinden, daß der CPC immer mit der fran¬ 
zösischen SECAM-Norm, das heißt mit 60 Hz Bildfrequenz, 
arbeitet. Um jedoch nicht auf die wenigen Programme, wie 
das ungepatchte CP/M Plus, die die erhöhte Bildfrequenz 
nicht vertragen, verzichten zu müssen, habe ich das Weine 
Programm 50HZ (siehe Listing 2) geschrieben, welches den 
Videochip wieder auf die PAL-Norm (50Hz) einstellt. 

4. Änderung der Tastaturbelegung 

Zusammen mit der Änderung der Bildfrequenz wird die Es- 
cape-Taste mit dem CP/M typischen Esc-Zeichen (ASCII- 
Nr. 27) und Control-Enter mit ’DIR’ + <cr> statt des für 
CP/M unbrauchbaren ’RUN“’ belegt. 


Die von Amstrad für CP/M Plus standardmäßig eingestellten 
Farben sind zwar schon besser als diejenigen für CP/M 2.2, 
aber sie machen dennoch nicht jeden glücklich. Deshalb kön¬ 
nen Sie sich jetzt Ihre Farben selbst aussuchen. Dies kann 
man zwar auch mit dem Dienstprogramm PALETTE, aber 
dieses Programm beansprucht zum einen den recht knappen 
Speicherplatz auf der Diskette, und zum anderen braucht die 
Ausführung nach jedem Kaltstart auch seine Zeit. Anderer¬ 
seits ist die Bedienung durch die Eingabe der ungewohnten 
Farbwerte nicht sehr komfortabel. Bei PATCH geben Sie 
einfach die INK-Werte der Farben für den Hintergrund und 
die Schriftfarbe ein. Die Umwandung geschieht im Patch- 
programm durch eine spezielle Tabelle “Table“. 

2. Die Steprate 

Die normale Steprate (die Zeit, in der der Schreib-/Lesekopf 
die Spur wechselt) des Diskettenlaufwerks liegt bei 12 ms. 
Sie kann jedoch auf 9 ms verkürzt werden. 


Änderungen und Erweiterungen 

Das Patchprogramm ist in zwei Teile aufgegliedert. Im er¬ 
sten Teil wird jeweils ein Sektor von C10CPM3 in den 
DMA-Puffer ab 1000h geladen, anschließend die Änderun¬ 
gen einzelner Bytes im Puffer vorgenommen und dann wird 
der Sektor wieder auf die Diskette geschrieben. Im zweiten 
Teil wird eine komplette neue Routine in das CP/M kopiert. 
Interessierte können das kommentierte Quellcode- Listing 
beim DMV, Redaktion PC Amstrad International, anfor- 
dem, falls Sie das Programm erweitern wollen. Beachten Sie 
bitte dann, daß nur jeweils ein Sektor gespeichert wird. 
Wenn Ihre Routine größer wird, dann müssen Sie einen 
zweiten Sektor speichern. Den Adressen innerhalb dieser 
Routine muß der Offset ’off’ zuaddiert werden, da sie ja nicht 
in dem Bereich abläuft, in dem sie assembliert wurde. 

Damit wäre alles Wichtige gesagt, eröffnen wir also damit 
die ’Schonzeit’ für Ihre Augen. 

(Michael Kruse/jb) 
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Tips & Tricks—i 


für 6128 



io openout"patch 
20 zei1 8=100 
30 check=0:F0R i = 
40 READ a$:IF a$= 
50 a=VAL( ,, &" + a$) : 
60 check=check+a: 
70 READ a$:aumme= 
EN PRINT CHR$(7)" 
80 zeile=zei1 «+10 
90 GOTO 30 
100 DATA 11,14,02 
110 DATA CD,05,00 
120 DATA OO.OE.OF 
130 DATA C2,CO,01 
140 DATA 02,OE,09 
150 DATA 1B,30,F1 
160 DATA 97,02,OE 
170 DATA FE.1B.30 
180 DATA CD,B4,01 
190 DATA 00.3E.17 
200 OATA 14,10,CD 
210 DATA CO,05,00 
220 DATA FE,4E,28 
230 DATA 60,22,07 
240 DATA AS,01,21 
250 DATA 00,ED,BO 
260 DATA 03,CD,05 
270 DATA 11,1B,03 
280 DATA OE,22,11 
290 DATA 01.C9,11 
300 DATA C7,47,04 
310 DATA C9,11,5A 
320 DATA 5B,03,7E 
330 DATA 85,6F,IE 
340 DATA OD,C8,16 
350 DATA 16,64,18 
360 DATA DO,3C,47 
370 DATA 18,F8,83 
380 OATA 32,32,18 
390 DATA 4D.20.50 
400 DATA 63,68,20 
410 DATA 43,50,43 
420 DATA 63,29,20 
430 OATA 31,2F,38 
440 DATA 74,65,20 
450 DATA 6B,65,74 
460 OATA 65,67,65 
470 DATA 69,6E,65 


.COM" 

1 TO 10 

"END" THEN CLOSEOUT:END 
PRINT #9,CHR$(a); 

NEXT 

VAL( "4" + a$) : IF summaOcheck 
Fehlar ln Zelle"ze11e:END 


480 DATA 64,72, 
490 OATA 4B.48, 


500 DATA 6E,64,20 
510 OATA 63,68,72 
520 DATA 65,20,3A 
530 OATA 53,74,65 
540 OATA 6D.73.5D 
550 OATA OA.54,61 
560 DATA 6C,65,67 
570 DATA 65,72,6E 
580 DATA 49,52,29 
590 DATA 48,7A.20 
600 DATA 71,75,65 
610 DATA 32,30,24 
620 DATA 65,74,74 
630 DATA 46,65,68 
640 DATA 43,31,30 
650 DATA 53,00,00 
660 DATA 00,00,00 
670 DATA 00,00,00 
680 DATA OB.OC.OE 
690 DATA 2C.2E.2F 
700 DATA 3E.3F.02 
710 DATA 01.04.BC 
720 DATA 01,05,BC 
730 OATA 01,07,BC 
740 DATA 01.04.8C 
750 OATA 1B,32,D8 
760 DATA C3.19.BD 
770 DATA 50,61,74 
780 OATA END 


,OE,09. 
,OE,1A. 
,11,18, 
,3E,10, 
,CD,05. 
,CO,C9, 
,09,CD, 
,Fl,CD, 
i11,AC, 
,CD,A5, 
,B4,01, 
,OE,01, 

i 20 , AF , 

,10,CD, 
i5 F,03, 
,CD,B4, 
,00,C7, 
,C0,0S, 
,1B,03, 
,01,03, 
, 21,3F, 
,03,OE, 
4F.3D, 
,00,16, 
, OA,CD, 
,00,28, 
AF,05, 
, 5F,3F, 
,33,32, 
, 6C,75, 
,56,32, 

36.31, 
,4D,4B, 
,38,OD, 
,5A,69, 
,74,65, 

6E,20, 
20,54, 
63,6B, 
6E,74, 
20,3A, 
69,66, 
20,1B, 
70,72, 
3A.20, 
74,61, 
75,8E, 
20,28, 
20,75, 
42,69, 
6E,7A, 
07,00, 
65,6E, 
6C,65 , 
43,50, 
00,00, 
00,00, 
00,00, 
OF,20, 

30.32, 
00,00, 
ED,49, 
ED,49, 
ED,49, 
21,38, 
B4.32, 
44,49, 
63,68, 


i CD , 05 , 00 , 
,11,00,10, 
,03,CD.05, 
, CD,A5,01, 
, 00,CD,D3, 
,01,32,25, 
,05,00,CD, 
,C9,01,32, 
,02,OE,09, 
, 01,CO,03, 
,11,CI,02, 
,C0,05 ,D0, 
, CD,A5,01, 
,B4,01,3E, 
,11,00,10, 
,01,OE,10, 
,32,3C,03, 
,00,87,20, 
CO,05,00, 
OE,09,CO, 
03,7E.23, 
OA,CD,05, 
FE,03,00, 
01,CD.FE, 
FE,01,DO, 
7E,06,30, 
28,05,82, 
C9.0A.0A, 
18,48,43, 
73,20,50, 
20,66,7D, 
32,38,20, 

20.32.32, 
OA,OA,42, 
65,6C,64, 
20,65,69, 
75,6E,64, 
61,73,74. 
65,6E.24, 
65,72,67, 
20,24,00, 
74,66,61, 
32,30,24, 
61,74,65. 

18.32.32, 
74,75,72, 
67,20,78, 
45,73,63, 
6E.64.20, 
6C,64,66, 
3A,20,6A, 
OA,44,69, 
20,49,2F, 

72.OD.OA, 
4D,33,20, 
00,00,00, 
00,00,00, 
00,02,03, 
22,23,28, 
33,38,3A, 
00,00,CD, 
01,IE,BO, 
01,08,BD, 
01,18,BD, 
6D,CD,OF, 
28.B5.32, 
52,OD,4D, 

20.56.32, 


,0E,01 
CD,05 
,00, B 7 
,11,84 
,01,FE 
, 10,11 
.03,01 
,2A,10 
CD, 05 
01,32 
OE, 09 
E6.5F 
21,00 
C2.C0 
01,47 
11, 1B 
OE,21 
0D.C9 
87,20 
05,00 
10, FC 
00 ,21 
3C,3C, 
01,00, 
00,CB, 
FE.OA, 
3F,DO, 
OD,18, 
S0.2F, 

61.74, 

72.20, 
20,28, 
2F,30, 

69.74, 
69,73, 
6E,6C, 

20.65, 

65.20, 
OD,1B, 

72.75, 
OA, 53 , 
72,62, 
OD,OA, 
20,5B, 
24,OD, 

62.65, 
6E.64, 
2F,44, 
36,34, 

72.65, 
08,1B, 
73,6B, 
4F.2D, 
24,00, 
45,40, 
00 , 00 , 
00 , 00 , 
08,0A, 
2A.2B, 
3B.3C, 
19,BD, 
ED,49, 
ED,49, 
ED,49, 
BB.3E, 
78,B5, 
4B.20, 
1A,1A, 


, 011F 
, 01ED 
,0105 
,0309 
, 038A 
,0348 
, 0323 
, 043D 
, 032 A 
,0398 
,0291 
, 02F8 
, 03D7 
, 03F5 
,0192 
,0369 
, 023C 
, 02AE 
,0208 
, 01C8 
,0322 
,0242 
, 03B1 
, 03C5 
, 0466 
, 0349 
, 03C5 
, 0336 
, 0209 
, 0363 
, 0308 
, 020F 
, 0227 
. 0210 
, 03C0 
. 03E5 
, 038B 
, 037D 
,0340 
.0403 
, 01FA 
, 041B 
,0197 
, 03C3 
,0247 
,0386 
, 03EF 
, 031B 
,0285 
, 039A 
, 031A 
, 022F 
,0334 
,0291 
,0269 
,0053 
, 0000 
,0017 
,0116 
,0207 
,0222 
,0409 
03F4 
0409 
032C 
0447 
0330 
02CC 


12069] 
[641] 
[653] 
[2235] 
[1972] 
[1115] 
TH [4824] 

[568] 

[340] 

[2241] 

[1394] 

[1582] 

[1523] 

[2583] 

[2028] 

[1536] 

[1723] 

[2115] 

[2581] 

[2025] 

[2086] 

[2524] 

[2486] 

[1483] 

[2324] 

[1777] 

[2348] 

[1743] 

[1369] 

[1380] 

[1611] 

[2574] 

[1313] 

[ 2122 ] 

[1272] 

[1600] 

[1187] 

[2563] 

[ 1983 ] 

(1762] 

[1708] 

[1500] 

[1697] 

[1680] 

[2590] 

[2804] 

[1364] 

[1798] 

[2153] 

[1743] 

[1847] 

[1950] 

[1214] 

[2181] 

[1758] 

[1897] 

[1693] 

[2274] 

[1392] 

[2433] 

[1966] 

[1925] 

[2143] 

[1642] 

[1217] 

[823] 

[1346] 
[1619] 
t1659] 
[2531] 
[1676] 
[1362] 
[2476] 
[1790] 
[2105] 
[2422] 
[933] 
f 267 ] 


10 'CRTC auf 50 Hz 
20 OUT &BCOO,4:OUT 
AL REG 38 Zallan 
30 OUT &BCOO,5:OUT 
AL ADJUST REG 
40 OUT &BC00,7:OUT 
POSITION REG 


Bildfrequenz einatellen 
&BD00,38 'VERTICAL TOTO 

&BD0O.0 'VERTICAL TOTO 

&BDOO,30 'VERTICAL SYNC 


[2382] 
[1829] 

[3333] 

[1834] 


Listing "CP/M-Patch“ 


DMV informiert 

An alle 

Leser, Kunden und Freunde des DMV 

Wir möchten sie darauf hinweisen, daß sich unsere 
Telefonummer geändert hat! 

Die Telefonzentrale erhalten sie unter 

0 56 51/80 09-0 

Für eilige Übermittlung von Schriftstücken steht ih¬ 
nen unter der Rufnummer 

0 56 51/8009-33 

das Telefax zur Verfügung. 

Auch Telex ist möglich über Telexnummer: 

993210 dmvd 

Für unseren HOTLINE-Service, wo Ihnen unsere 
Redakteure zu Ihren aktuellen Computerproble¬ 
men Rat und Hilfen geben, haben wir spezielle 
“heiße Drähte“ installieren lassen. 

Die PC-Amstrad-Redakteure sind für Sie 
jeden Mittwoch von 17.00 - 20.00 unter 
folgenden Rufnummern erreichbar: 

Herr Daschner {CPq 0 56 51/80 09-16 
Herr Boragießer (CPC/Hardware) -17 

Herr Schößler (PCW) -18 

Herr Ebbrecht (PCW/PC) -18 

Und noch einen Hinweis: 

Für alle interessierten Orgatechnik-Messe- 
besucher: 

Der Stand des DMV befindet sich in 
Halle 2.1, Gang J, Stand 60 

ORGATECHNIK 
KÖLN ’88 

INTERNATIONALE BUROMESSE 

_20. bis 25. Oktober 


Wir freuen uns auf Ihren Besuch 



Medienverlag 


Daten & Medien Verlagsges. mbH 
Postfach 2 50 • Fuldaer Straße 6 
3440 Eschwege 
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r~Tips & Tricks 


Window-Manager 

Fenster definieren 
leicht gemacht 

Wer in seinen Programmen Windows benutzen möchte, 
muß dies vorher durch bestimmte Koordinaten festlegen. 
Daß das manchmal sehr nervig sein kann, werden Sie be¬ 
stimmt schon festgestellt haben — hier eine Abhilfe. 

Nach dem Starten werden Sie nach dem Bildschirmmodus 
gefragt (0-2). Geben Sie nun das Gewünschte ein. Danach 
können Sie mit folgenden Tasten loslegen: 



»WINDOW 

-MANAGER» 

H 

0 

0, 

0. 

0, 

0 

M 

1 

21.34. 

4 , 

13 

n 

2 

Q, 

0. 

0, 

ö 

tt 

3 

0, 

0, 

0. 

0 

# 

4 

0, 

0, 

0. 

Ü 

*4 

5 

o. 

0, 

0. 

0 

tt 

6 

O . 

ü. 

0 . 

0 

(4 

? 

o. 

o. 

o. 

o 

WINDOW 

H ? 

sm 



CURSOR-Taste ohne SHIFT: bewegt das ganz Window 
über den Bildschirm. 

CURSOR-Taste mit SHIFT: bewegt die Ränder des Win¬ 
dows. 

CURSOR-Taste mit Controll: bewegt die Ränder in die 
entgegengesetzte Richtung. 

COPY: Window wird gesetzt 

ENTER: Aufruf des Daten und Menüwindows 

Daten- und Menüwindow 

Befinden Sie sich im Daten- und Menüwindow, können fol¬ 
gende Eingaben gemacht werden: 


für 464-664-6128 




*** WINDOW-MANAGER *** 
* Th. Schatz, 1988 * 


*** MODE 


Welcher MODE ?" 


10 
20 
30 
40 
50 
60 

70 MODE 1 
80 INK 1,26 
90 INK 0,0 
100 BORDER 11 
110 LOCATE 1,10 
120 PRINT 
130 PRINT 

140 INPUT" (0,1 oder 2) ".modus 
150 IF modus<0 OR modus>2 THEN 70 
160 MODE modus 

170 IF modus=0 THEN pixe1=3 2 : maxz=20 
180 IF modus=l THEN pi xel=16:maxz=40 
190 IF modus=2 THEN pi xel=8:maxz=80 
200 ‘ 

210 '*** Initialisierung *** 

220 ' 

230 t$=CHR$(13)+CHR$(224) 

240 FOR i=240 TO 251 
250 t$=t$+CHR$(i) 

260 NEXT 
270 xr=5*pixel 
280 xl=l 
290 yO=8Q 
300 yu=l 

310 WINDOW #1,2,19,2,15 
320 win = l 
330 CLS 

340 SPEED WRITE 1 
350 1 

360 '*** DEF WINDOW *** 

370 ‘ 


Listing Window 


[1097] 

[966] 

[117] 

[117] 

[1538] 

[ 117] 

[ 506] 
[56] 
[53] 
[950] 

[ 726] 

[1269] 
[361] 
[2635] 
[2013] 
[903] 

[1808] 
[1680] 
[1169] 
[117] 

[ 1272] 
[ 117] 

[ 1209 ] 
[976] 

[1183] 
[ 350] 

[ 1154] 
[ 627] 
[681] 
[634] 

[ 1193] 
[ 527] 
[91] 

[ 1302] 
[117] 
r ii9i] 
[117] 


So leicht kann ein “Fenster" erzeugt und in eigene Programme eingesetzt 
werden. 


L: Window löschen; bei Eingabe der Window-Nr. 99 wird 
der ganze Bildschirm gelöscht. 

S: BASTC-Programm erzeugen und abspeichem. 

ENTER: Weiteres Window definieren. 

E: Programm beenden. 

(Thorsten Schatz/cd) 


380 PRINT CHR$(23);CHR$(1) 

390 GOSUB 590 

400 a$=INKEY$: IF a$=' ,M THEN 400 
410 GOSUB 590 

420 ON INSTR(t$,a$) GOTO 660,700,440,450,4 
60,470,480,490,500,510,520,530,540,550 
430 GOTO 390 

440 IF yo< 400 THEN yo = yo+16:yu = yu+16:GOTO 
390 ELSE 390 

450 IF yu>l THEN yo=yO-16:yu=yu-16:GOTO 39 
0 ELSE 390 

460 IF xl>l THEN x1=x1-pixe1:xr=xr-pixe1:G 
OTO 390 ELSE 390 

470 IF xr <640 THEN x1=x1+pixe1:xr = xr+pixe1 
:GOTO 390 ELSE 390 

480 IF yo< 400 THEN yo = yO+16:GOTO 390 ELSE 
390 

490 IF yo>yu+32 THEN yo=yo-16:GOTO 390 ELS 
E 390 

500 IF x1>l THEN xl= xl-pixel:GOTO 390 ELSE 
390 

510 IF xl<xr-2*pixel THEN x1=x1+pixe1:GOTO 
390 ELSE 390 

520 IF yu < yO-32 THEN yu = yu + 16:GOTO 390 ELS 
E 390 

530 IF yu >1 THEN yu = yu-16:GOTO 390 ELSE 39 
0 

540 IF xr>xl+2*pixel THEN xr=xr-pixel:GOTO 
390 ELSE 390 

550 IF x r < 640 THEN xr = xr + pixel :GOTO 390 EL 
SE 390 
560 ' 

570 '*** Window zeichnen *** 

580 1 

590 dx=xr-xl-1:dy=yo-yu 
600 MOVE xl,yo-1 

610 DRAWR dx,0:DRAWR 0,-dy:DRAWR -dx,0:DRA 
WR 0,dy 
620 RETURN 
630 ' 

640 '*** [Enter] gedrueckt *** 

650 ' 


Listing Window 


[1978] 

[966] 

[1384] 
[966] 

[5009 ] 

[ 494] 
[2947] 

[2892] 

[3390] 

[4979] 

[2660] 

[2825] 

[2448] 

[5248] 

[2184] 

[2518] 

[2361] 

[2981] 

[117] 

[1261] 

[117] 

[908] 

[460] 

[2462] 

[ 555 ] 
[117] 
[2196] 
[117] 
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660 
670 
680 
690 
700 
710 
720 
730 
740 
750 
760 
770 
780 
790 
800 
810 
820 
830 
ER*' 
640 
850 
860 
870 
(i ) 
880 
(i ) 
890 
(i ) 

900 
( i ) 
910 
920 
* " 
930 
940 
950 
960 
970 
980 
990 
1000 
1010 
1020 
"> 

1030 
i n 

1040 

1050 

1060 

1070 

1080 

1090 

1100 

1110 

1120 

1130 

1140 

1150 

1160 

1170 

1180 

1190 


GOTO 780 

'*** [COPY] gedrueckt = WINDOW SET #** 

1 i(win)=(xl+pixe1-l)/pixel 
re(win)=xr/p1xel 
ob(w1n)=25-(yo/16}+l 
un(win)=25-((yu+15)/16)+l 
setwin(win)=1 
GOSUB 590 

LOCATE 1i(win)+1,ob(win)+1:PRINT win 
GOTO 780 

’*** WINDOW *** 

PAPER #1,1:PEN #1,0 
CLS #1 

LOCATE #1,1,2:PRINT #1,“ *WINDOW-MANAG 
FOR i=0 TO 7 

LOCATE #1,2,1+4:PRINT #l,"#";i 
LOCATE #1,8,i+4:PRINT #1,", 

LOCATE #1,6,l+4:PRINT#1, USING "##";li 


[409] 

[117] 

( 1379] 
[117] 

[ 1838] 

[1442] 

[1726] 

[1098] 

[ 759 ] 

[966] 

[2571] 

[ 409 ] 

[117] 

[970] 

[117] 

[1741] 

[373] 

[2824] 

[ 486] 
[1725] 
[1886] 
[2356] 


LOCATE #1,9, 1 +4 : PRINT #1,USING "##";re [ 2778] 
LOCATE #1,12,i+4:PRINT #1.USING"##“;ob [2241] 
LOCATE #1,15,i+4:PRINT #1,USING"##";un [2281] 


NEXT i 

LOCATE #1,2,13:PRINT #1,"(L/S/ENTER/E) 
a$=UPPER$(INKEY$) 

IF a$="S" THEN GOSUB HlOrGOTO 820 
IF a$="L" THEN GOTO 1270 
IF a$="E" THEN GOTO 1420 
IF a$=CHR$(13) THEN 990 
GOTO 930 


'*** Window verlassen *** 

LOCATE #1,1,13:PRINT #1,STRING$(18," 

LOCATE #1,2,13:INPUT #1,"WINDOW # ";w [2434] 


[ 375 ] 
[2615] 

[789 ] 

[2038] 
[1789] 
[1396] 
[572 ] 
[530] 
[117] 

[1308] 

[117] 

[2438] 


IF w1n<0 OR win>7 THEN 1020 

IF setwin(win)=1 THEN 820 

PAPER #1,0 

PEN #1,1 

CLS #1 

GOSUB 1650 

GOTO 390 

'*** Save *** 

CLS #1 
PRINT #1 

PRINT #1," Dateiname:" 

PRINT #1, 

INPUT #1," ",name$ 

PRINT #1:PRINT #l:OPENOUT name$+".wdw 


1200 PRINT #9,"1 'Windows" 

1210 FOR 1=0 TO 7 

1220 IF 1i(i)=0 OR re(i)=0 OR ob(i)=0 OR u 
n(i ) =0 THEN 1240 
1230 PRINT #9,i+2;" Window #' 

STR$(1i(i));","+STR$(re(i));' 


) ; " , 
1240 
1250 
1260 
1270 
1280 
1290 
1300 
") 

1310 
i n 

1320 

1330 

1340 

1350 


' ;STR$(un(i)) 

NEXT 

CLOSEOUT 

RETURN 

'*** Loeschen **# 


;STR$(i ) ; " , " ; 
,";STR$(ob(i) 


LOCATE #1,1. 
LOCATE #1,2, 


13:PRINT #1 


13:INPUT #1 


[1270] 
[1232] 
£ 1308] 
[465] 

[ 373] 

[825] 

[494] 

[117] 

[588] 

[117] 

[373] 

[318] 

[1089] 

[336] 

[ 1215] 
[ 1831] 

[1941 ] 

[486] 

[2116] 

[7384] 


[ 350] 
[902] 

[ 555 ] 
[117] 

[1344] 

[117] 

[2438] 


, STRING$(18, 

, "WINDOW # ";w [2434] 


IF win=99 THEN GOSUB 1530:GOTO 270 
IF win <0 OR win>7 THEN 1300 
IF setwin(win)=0 THEN 820 
1i(win)=0 


[2806] 
t1294] 
[651] 
[300] 


Listing Window 


1360 re(win)=0 [689] 

1370 ob(win)=0 [837] 

1380 un(win)=0 [317] 

1390 setwin(win)=0 [756] 

1400 GOSUB 1650 [825] 

1410 GOTO 790 [415] 

1420 ' [117] 

1430 '*** Ende *** [1135] 

1440 ' [117] 

1450 CLS #1 [373] 

1460 PRINT #1 [318] 

1470 PRINT #1," Beenden (J/N) ?' [1134] 

1480 a$=UPPER$(INKEY$) [789] 

1490 IF a$="" THEN 1480 [862] 

1500 IF a$< >"J" THEN 820 [1153] 


1510 MODE 1 [506] 

1520 END [110] 

1530 ' [117] 

1540 '*** Bildschirm loeschen *** [2226] 

1550 ' [117] 

1560 CLS [91] 

1570 FOR i=0 TO 7 [486] 

1580 1 i(i ) =0 [347] 

1590 re(i ) =0 [602] 

1600 Ob(i)=0 [506] 

1610 un(i)=0 [252] 

1620 NEXT [350] 

1630 win=l [527] 

1640 RETURN [555] 

1650 ' [117] 

1660 '**# Menue loeschen *** [1785] 

1670 ' [117] 

1680 CLS [91] 

1690 FOR i=0 TO 7 [486] 

1700 IF setwin(i)=1 THEN GOSUB 1770 [1864] 

1710 NEXT [350] 

1720 x r=5*pixel [1154] 

1730 xl=l [627] 

1740 yo=80 [681] 

1750 yu=l [634] 

1760 RETURN [555] 

1770 xl=(1i(i)-l+l/pixel)*pixel [1768] 

1780 xr=re(i)*pixel [2154] 

1790 yo=(26-ob(1))* 16 [ 1070] 

1800 yu=(25.0625-un(i)) * 16 [1669] 

1810 LOCATE 1i(i)+l,ob(i)+l:PRINT i [2235] 

1820 GOSUB 590 [966] 

1830 RETURN £555] 



Listing Window 
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Sprücheklopfen 

durch Banner-Schriften 


Geben Sie witzige Sprüche in großen “Lettern“ auf dem 
Drucker aus. Oder wollen Sie Ihre Sonderangebote auf 
besondere Weise anpreisen? Mit diesem Programm zie¬ 
hen Sie auf jedenfall die Aufmerksamkeit auf sich. 

Mit BANNER lassen sich große Schriften auf einem Drucker 
mit Endlospapier ausgeben. Nachdem Sie das Programm ge¬ 
startet haben, wird der Bildschirm aufgebaut. Und anschlie¬ 
ßend erscheint eine Abfrage, ob ein Zeichensatz geladen 
werden soll oder nicht. Dazu aber später. Drücken Sie jetzt 
entweder die ENTER- oder COPY-Taste als Bestätigung. 
Daraufhin erscheint im Menü hinter “Text:“ ein kleiner 
Strich, welcher den Cursor darstellt. Es läßt sich nun Text 
eingeben, wie bei einer INPUT-An Weisung. ACHTUNG: 
CLR- und die CURSOR-Tasten funktionieren nicht mehr. 

Einstellungen 

Mit den CURSOR-Tasten oder dem Joystick läßt sich die 
Höhe und die Breite einer Schrift einstellen. Die maximale 
Höhe beträgt fünf, die maximale Breite zehn. Die Werte be¬ 
deuten, daß ein Pixel auf dem Bildschirm gleich fünf Zeichen 


auf dem Drucker ist. Nun können Sie mit SH3FT und den 
CURSOR-Tasten rechts oder links die Zeichen auswählen. 
Das Zeichen bestimmt das Aussehen der Schrift. Beim Star¬ 
ten wurde ein X eingestellt. Nach der Einstellung drücken 
Sie bitte die ENTER- oder COPY-Taste. 


Andere Zeichensätze 

Möchten Sie einen anderen Zeichensatz als den eingebauten 
benutzen, so verwenden Sie einen BASIC-Lader der einen 
anderen Zeichensatz definiert. Geben Sie nun RENUM 1500 
ein (1500 ist die Mindestgröße), speichern ihn als ASCII-File 
auf Diskette oder Kassette ab. Danach starten Sie das Pro¬ 
gramm BANNER. Auf die Frage, ob ein anderer Zeichen¬ 
satz verwendet werden soll, drückt man die linke CURSOR- 
Taste oder den Joystick nach links und dann COPY, ENTER 
oder die Feuertaste am Joystick. Nun wird nach dem Namen 
des Zeichensatzes und der ersten Zeilennummer gefragt (in 
unseren Beispiel 1500). Danach werden Sie gebeten, die “0“ 
der Zehnertastatur zu drücken. Das Programm startet noch¬ 
mals und initialisiert den neuen Zeichensatz. 

ACHTUNG: Das Programm löscht selbständig Teile von 
sieh selbst. Es sollte daher nie die mit dem Zeichensatz verse¬ 
hene Version gespeichert werden. 

(Sascha Tobler/cd) 


für 464-664-6128 

I- 



10 ' ************************************* 
******************************* 

20 ' ************************************* 
******************************* 

30 ' **** - 

-**** 

40 1 **** Banner-Schrift auf 

Drucker **** 

50 ' **** - 

-**** 

60 ' **** World Copyright by Futur 

esoft (S.Totaler) **** 

70 1 **** - 

-**** 

BO ' ************************************* 

******************************* 
g0 ' ************************************* 
******************************* 

100 1 
110 1 

120 MODE 2 

130 GOSUB 410 : ’ ===> Bi ldschirminiti 

a1 isierung 

140 GOSUB 610 : ' ===> Werte einstelle 


[2143] 

[2143] 

[441] 

[2317] 

[441 ] 

[5437] 

[441] 

[2143] 

[2143] 

[117] 

[117] 

[513] 

[3575] 

[3128] 


n 

150 GOSUB 1080 : ' ===> Ausdruck oder [2494] 

Abbruch ??? 

160 FOR t=l TO 200:NEXT [1050] 

170 CALL &B803 : 1 664 und 6126 Ben [3131] 

utzer muessen CLEAR INPUT einsetzen 
180 - [117] 

190 WHILE INKEYC18) AND INKEY(47) [1774] 

200 WEND [390] 

210 IF NOT INKEY(47) THEN CLS:PRINT:PRI [4672] 
NT"Locomotive BASIC V 1.0 ":PRINT:END 
220 ' [117] 

230 ' *** Hauptprogramm *** [1683] 

240 ' [117] 

250 PRINT#8,CHR$(27) ; "1" ; : •==>= Dr [2845] 

ucker auf 7/72 Zoll einstellen 

260 ' [117] 

270 LOCATE 1,25 [731] 


280 PRINT a$ [399] 

290 PRINT#8, [546] 

300 FOR t = 0 TO LEN(a$)*8 [ 1469] 

310 FOR i=1 TO 16 [317] 

320 IF TEST(t,i)=1 THEN b$=b$+ST [3836] 

RING$(h,s$} ELSE b$=b$+STRING$(h," " ) 

330 NEXT [350] 

340 FOR m=1 TO b: [866] 

350 PRINT #8,b$ [880] 

360 NEXT [350] 

370 b$= [53] 

380 NEXT [350] 

390 ‘ [117] 

400 END [110] 

410 • [117] 

420 ' *#* Bildschirminitialisierung *** [2342] 

430 • [117] 

440 LOCATE 13,2:PRINT"B annersch [4155] 
rift auf Drucker" 

450 MOVfe 1,399:DRAW 639,399,1 [1177] 

460 DRAW 639,352:DRAW 1,352:DRAW 1,399 [1496] 

470 MOVE 4,395:DRAW 636,395 [1354] 

480 DRAW 636,356:DRAW 4,356:DRAW 4,395 [2829] 

490 1 [117] 

500 LOCATE 5,10:PR I NT"Eingeste11te WERT [3217] 
E : " 

510 LOCATE 7,13:PRINT" H 0 E H E : l" [1561] 

520 LOCATE 7,15:PRINT" B R E I T E : 1” [1532] 

530 h=1:b=1 [451] 

540 LOCATE 7,18:PRINT"Text : [1452] 

550 LOCATE 7,20:PR I NT"Zeichen : X";:s$= [2798] 

"X":s=ASC(s$) 

560 LOCATE 50,10:PRINT"Sonder-Zeichensa [4056] 
tz (J/N)" 

570 MOVE 382,238 [742] 

580 DRAW 594,238,1:DRAW 594,258 [893] 

590 DRAW 382,258,1:DRAW 382,238 [1682] 

600 RETURN : ' Ruecksprung zum HP [1531] 

610 1 [117] 

520 ' *** Werte einstellen (vom Benutzer) [1901] 

*** 

630 ' [117] 

640 1 -> Abfrage ob Eigener Zeichensatz [3666] 

650 ' [117] 


Listing Sprüche 


Listing Sprüche 


















Tips & Tricks—| 


660 zei$="N" [349] 

670 WHILE IN KEY(77) AND INKEY(76) AND [3405] 

INKEY(9 ) AND INKEY(18) 

680 IF NOT INKEY(8) OR NOT INKEY(74) THE [3418] 
N z ei$ = " J " ;LOCATE 70,10:PRINT"J/N)" 

690 IF NOT INKEY(l) OR NOT INKEY(75) T [3933] 


HEN zei$="N" : 

LOCATE 70.10:PRINT"J/N)" 


700 

WEND 


[390] 

710 

IF zei$="J" THEN GOSUB 1140:END 

[2233] 

720 ' 



[117] 

730 

FOR t 

= 1 TO 300 : NEXT 

[ 622] 

740 

CALL 

&BB03 664 und 6128 muess 

[ 2657] 

en CLEAR INPUT benutzen !!! 


750 ' 



[117] 

760 

MOVE 

382,238 

[ 742 ] 

770 

DRAW 

594,238,0:DRAW 594,258 

[1034] 

780 

DRAW 

382,258,0:DRAW 382,238 

[1193] 

790 

FOR t 

, = 1 TO 100: NEXT 

[1125] 

800 

MOVE 

128,110:DRAWR 8,0,1 

[993] 

810 

WHILE 

I INKEY(77) AND INKEY(76) AND 

[3405] 

INKEY(9) AND 

INKEY(10) 


820 

ein$=INKEY$ 

[545 ] 

830 

IF 

NOT INKEY(l) AND NOT INKEY(21 

[2304] 

) THEN s=s+l 



640 

IF 

NOT INKEY(8) AND NOT INKEY(21 

[1831] 

) THEN s=s-l 



850 

IF 

s< 33 THEN S = 33 

[ 326 ] 

860 

IF 

S > 12 6 THEN s = 126 

[1570] 

870 ' 



[117] 

880 

IF 

NOT INKEY(0) OR NOT INKEY(72) 

[2095] 

THEN 

h=h+l 



890 

IF 

NOT INKEY(2) OR NOT INKEY(73) 

[2056] 

THEN 

h = h-1 



900 ' 



[117] 

910 

IF 

NOT INKEY(8) AND INKEY(21) OR 

[2915] 

NOT 

INKEY(74) THEN b=b-l 


920 

IF 

NOT INKEY(1) AND INKEY(21) OR 

[5149] 

NOT 

INKEY(75) THEN b=b+l 


930 ' 



[117] 

940 

IF 

b<l THEN b=1 

[ 770] 

950 

IF 

b>10 THEN b=10 

[335] 

960 

IF 

h<1 THEN h=1 

[990] 

970 

IF 

h > 5 THEN h=5 

[ 750] 

980 ' 



[117] 

990 

IF 

ein$=CHR$(127) AND a$<>"" THE 

[8142] 


N a$=LEFT$(a$,LEN(a$)-l):LOCATE 17,18:PRIN 
T a$;" ";:MOVER -16,0:DRAWR 8,0,1:DRAWR 8 

,0,0:MOVER -8,0 
1000 1 

1010 IF ein$ > =" " AND ein$<="z" THE 

N a$=a$+ein$:LOCATE 17,18:PRINT a$:MOVER - 
8,0:DRAWR 8,0,0:DRAWR 8,0,1 


LOCATE 21,13:PRINT h; 

LOCATE 21,15:PRINT b; 
s$=CHR$(s>:LOCATE 17,20:PRINT s 

FOR t=l TO 30:NEXT 

WEND 

RETURN 

*** Abruch oder Ausdruck ??? *** 


LOCATE 50,15:PRINT"Abbruch = [SP 
LOCATE 50,17:PRINT"Ausdruck = [EN [2549] 


RETURN 


**** Eigener Zeichensatz *** 


1020 
1030 
1040 
$; 

1050 
1060 
1070 
1080 
1090 
1100 
1110 
ACE] 1 
1120 
TER]' 

1130 
1140 
1150 
1160 ' 

1170 CALL SBB03 : ' = = => = CLEAR INPU 
T einsetzen 
1180 CLS 

1190 LOCATE 4,3:INPUT"Bitte geben Sie d 

en Namen des Files an : ";name$ 

1200 WHILE zei1<1500 

1210 LOCATE 4,5:INPUT"Bitte geben Sie d 

ie erste Zeilennummer ein: ";zei1 
1220 IF ze11<1500 THEN LOCATE 4,8:PRINT 

CHR$(24)" Zu klein “CHR$(24 ) ; : FOR t = l T 
0 1000:NEXT:LOCATE 4,8:PRINT SPACE$(15); 
1230 WEND 

1240 KEY 128,CHR$(13)+"125 GOSUB "+STR$( 
zei1)+CHR$(13)+"65535 RETURN"+CHR$(13)+"DE 
LETE 560-590"+CHR$(13)+“DELETE 660-710"+CH 
R$(13) + "MERGE " + CHR$(34)+name$ + CHR$(13)+ " R 
UN''+CHR$( 13 ) 

1250 LOCATE 4,10:PRINT CHR$(24)" Bitte d 
ruecken Sie die 0 des 10er Blockes... "CHR 
$(24) 

1260 RETURN 
Llsting Sprüche 


[117] 

[6047] 


[1135] 
[ 986] 
[2430] 

[641] 

[390] 

[555] 

[117] 

[2045] 

[117] 

[1850] 


[ 555] 

[117] 

[ 2010 ] 

[117] 

[2576] 

[91] 

[3562] 

[ 1876] 
[ 6301 ] 

[5203] 


[390] 

[8444] 


[5762] 


[ 555 ] 


SPECIAL OfFERs! 

für CPC 464-664-6128, nur auf 3“- Disketten 

Original CPC-Software im Paket 
zu stark herabgesetzten Preisen 



COMPOSER-STAR (664/6128) 

Ein Musikprogramm für alle Musikfans 

Mit COMPOSER-STAR können Sie komplette Musikstücke oder nur 
ein paar Taktfolgen auf einfachste Weise erstellen! Natürlich stehen 
Ihnen auch eine Menge Korrekturhilfen zur Verfügung, um Ihrem 
Stück den letzten Schliff zu geben Sie können auch mehrere Stücke 
verbinden, transponieren, die Tonhüllkurven und die Lautstärke ver¬ 
ändern, den Rauschgenerator benutzen, Notenblätter drucken . 
Das Programm ist sehr einfach zu bedienen: das beiliegende Hand¬ 
buch gibt auch dem Anfänger einen Einblick in die bislang fremde 
Welt der Musik Das wichtigste jedoch ist, daß Sie Ihre Werke in ein 
Basicprogramm umwandeln können, um es in eigenen Programmen 
zu verwenden 


STATISTIC-STAR 

Eine Grafik sagt mehr als 1000 Zählen 

Ein professionelles Grafik- und Statistik¬ 
programm zum Auswerten von Daten aller Art 
(Schule, Studium, Beruf, Hobby, Haushalt ) 

• Linien-, Balken- und Tortengrafik 

• Betiteln von Grafiken 

• 400 Daten direkt im Speicher 

• Umfangreiche Editierfunktionen 

• Umfangreiche statistische Berechnungen 

• Hardcopyfunktion u.v.m. 



COPY-STAR II 

ist die ideale Befehlser¬ 
weiterung für Drucker¬ 
besitzer, denn es stellt 
für alle gängigen 
Drucker Hardcopyfunk¬ 
tionen in verschiedenen 
Größen zur Verfügung. 
Sogar Farbbilder lassen 
sich schattiert ausge¬ 
ben COPY-STAR II kön¬ 
nen Sie leicht in eigene 
Programme einbinden 


MATHE-STAR 

Vom Lehrer für Schüler 

• lin, Gleichungssysteme 

• Gleichungen 4 Grades 

• Bruchrechnen 

• Primfaktorenzerlegung 

• Polynome 

• Kurvendiskussion 

• Integralrechnung 

• Vektorrechnung 

• Matrixrechnung 
etc 


BettpleTgraflk STATISTIC-STAR 



DISKSORT-STAR 

Leistungsstarke Diskettenverwaltung, die keinem CPC-Benutzer 
fehlen sollte DISKSORT-STAR verwaltet, archiviert, katalogisiert, 
druckt, Ihre Diskettensammlung auf einfachste Weise. Neben 
der reinen Diskettenverwaltung ist unter anderem noch ein kom¬ 
pletter Diskettenmanager enthalten. Auch in punkto Bedienungs¬ 
komfort ist DISKSORT-STAR kaum zu schlagen 



DESIGNER-STAR 

Grafikprogramm, mit dem 
man Biidschirmgrafiken kom¬ 
fortabel erstellen kann Hilfs¬ 
menü auf Tastendruck - kein 
Joystick oder Maus not¬ 
wendig 


CREATOR-STAR 

Ein Trickfilmdesigner für 
alle Hobbyregisseure auf 
dem CPC! 

• Sprite-Designer 

• Laufschrift 

• Utilities 

• Kulissendesigner 

• Sprites mit 4 Unter¬ 
positionen 

• Verbinden von Sprites 

• Kulissen auch überein- 
andergelegt 

• Eigene Programmierspra¬ 
che mit Editor und Compiler 


STAR-MON 

Das Entwicklungssystem 
für Profis 

• Assembler 

• Editor 

• Disassembler 

• Monitor 

• vier Breakpoints 

• Trace-Funktion 

• Bankswitch 

• Memory Dump 

• Diskettenmonitor 

• uvm 





9 Spiele für Ihren CPC auf 3“ Disketten 

1) Stan und der Zauberstab - Ein deutsches 
Grafikadventure besonderer Art 

2) Mr. PAC - Version des beliebten PACMAN- 
Spieles. 

3) Puzzle - Bringen Sie ein durcheinandergefal¬ 
lenes Bild wieder in Ordnung 

4) Black Jack 5) Orion 6) Labyrinth 
7) Memory 8) Zick-Zack 9)Slalom 


' Unabhängig von der Anzahl der bestellten Programme berechnen wir für das 
Inland 3,- DM bzw. für das Ausland 5,- DM Porto und Verpackung. Bitte be¬ 
nutzen Sie die Bestellkarte. 

SPECIAL OFFERS sind nur erhältlich bei: 


DMV Verlag ■ Postfach 250 ■ 3440 Eschwege 
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TiNZELHÄNDLERPXÄSENTIERT: 




Vertragshanai 


DEUTSCHLANDS O«**™» SCH»«»™ 


Spiele für CPC 


lOthPtame 

20Chartbusters 

20 000 Meilen unter dem Mee: 

2112 AD 

3 D Thai Boxing 

3D Voice Chess 

5 Axis 

500 CC Grand Prix 

720Degrees 

ATF 

Academy 

Acrojet 

Activator 

Advenced Taclical Fighter 
Alien Highway 
Aliens 
Aliens US 

Americas Cup Challenge 

Andy Cap 

Annals ofRome 

Arcade Force Foui 

Arkanoid 

Aikanoid 2 

Armageddon Man 

Asterix im Morgenland 

Auf Wiedersehen Monty 

Avenger 

Axiens 

Backgammon 

Basü - Great Detective 

Basket Master 

Batman 

Battlefield Germany 
Bedlam 

Beyondthelce Palace 
Big 4 Compilation 
Big 4 Compilation Vol 2 
Big Trouble in Little Cliina 
Biggles 

Bionic Commandos 
Blade Runner 
BloodBrotheis 
Blood Valley 

Blueberryunddas Gespenst 

BobWinner 

Bobsleigh 

Boggit 

Boulderdash Constr Set 
Bounty Bob Sttikes Back 
Biave Star 
Break Thru 
Brian Clough Football 
Bridge Players 3 
Bubble Bobble 
BuggyBoy 
California Games 
Camelon 
Camelot Warrior 
Captain America 
Captain Blood 
Catch 23 

Chamonix Challenge 
Championship Football 
Championship Sprint 
Champs Water Ski 
Charlie Chaplin 
CitySlicker 
Classic tavaders 
Clever & Smart 
Cluedo 


Csjs . 

Disk , 


27,80 

39.90 

CoinopClassics 

36.40 


Cobssus Bridge 


47.90 

Cobssus Chess 4 0 


46.40 

Cobssus Mali Jong 

26.20 

43.30 

Combat School 

46.00 

55.60 

Computer Classics 

29.90 

46.40 

ComputerIiits2 

33.60 

47.90 

Computer Hits 3 

26.20 

39.90 

Computer Hits 4 


45.00 

Computer Hits 6 

29.30 


Craiton&Xunk 

29.30 

47.90 

Crazy Cars 


43.30 

Crystal Castle 

29.90 

43.30 

Cybemoids 

26.20 

46.40 

Cyrus 2 Chess 

29.30 

43.30 

Dan Dato 

33.60 

43.30 

DanDare2 

29.30 

43.30 

Dandy 

33.60 

47.90 

Dark Sceptie 

38.60 


Datkside 

33.60 

69.90 

DeLuxe Scrabble 

29.90 

38.60 

DeathviDe 


47.90 

DeepeiDuugeons 

38.60 

43.30 

Defcom 


43.30 

Deflector 

26.20 

38.60 

Dcsolator 

26.20 

3 B .60 

Dogfight 2187 


24.70 

DoorsofDoom 

24.90 

36.40 

Dragons Lair 


47.90 

DragonsLaiil&2 

29.90 

47.90 

Dtaughts 


44.80 

Dtillex 

39.90 

56.50 

Druid 

33.60 

39.90 

Druid2 

36.40 

49.90 

Dun Daragh 

33.60 

39.30 

Dynairute Dan 

33.60 

47.90 

Dynamite Dan 2 

29.30 

43.30 

Eagles Nest 

29.90 

44.80 

Eddy Edwards Sky 

36.40 

49.90 

Flektra Glide 

29.30 


Elevator Action 

36,40 

49.90 

Elite 

33.60 

47.90 

Enduro Racet 


43.30 

Epyx (The Worlös Greatest) 

36.40 

49.90 

Escape frorn Sings Castle 

29.30 

47.90 

Evening Star 

26.20 


Every Second Counts 

33.60 

47.90 

Exolon 

27.80 


Explorer 

27.80 

39.90 

Eye 

29.30 

33.60 

Fifth Quadrant 

47.90 

56.50 

Firelord 

46.00 

55.60 

Fiiezone 

33.60 

47.90 

Five StarGames2 

29.30 

43.30 

Five Star Games 3 

27.80 

39.90 

Flintstones 

33.60 

47.90 

F ootball Manager 2 


43.30 

Fotbidden Planet 

26.20 

39.90 

Four Smash Hits 

36.40 

49.90 

Frankie goes to Hollywood 

26.20 

39.90 

Freddy Hardesl 

29.30 

43.30 

Fugger 

33.60 

47.90 

Futurs Kniaht 

33.60 

47.90 

GGoochTestCticket 

33.60 


GalacticGames 

29.90 

46.40 

Galvan 

23.10 

38.60 

Game Over 


29.30 

Games Set and Match 

29.30 

44.80 

Gary Linekers Football 

33.60 

47.90 

Gauntlet 





Cass . 

Dish . 



Gauntlet 1 & 2 

33.60 




Gauntlet 2 

26.20 

39.90 



GeeBceAirRaliy 

33.60 

46.40 



Get Dexter 2 

33.60 

47.90 



Gladiator 


56.50 

Cass . 

Dish . 

Glidet Rider 


37.10 

33.60 


Golden Path 


46,40 

39.30 

47.90 

Golf 


43.30 

33.60 

45.00 

Golhik 

33.60 

47.90 

33.60 

47.90 

GreatEscape 

23,10 

38.60 

24.70 

39.90 

Giyzor 

29.90 

47.90 

24.90 

33.60 

Guadacanal 

33,60 



47.90 

Gutld of Thieves 6128 


58.80 

33.60 

47.90 

Hacker 2 

29.30 


33.80 

47.90 

Hanse 

39.90 



47.90 

Head ovet Heeis 

23.10 

38.60 

34.00 

49.50 

Heartland 

29.30 

43.30 

33.60 

46.40 

HighFtontiei 

29.30 

44.80 

27.80 

39.90 

Hijack 

29.30 

43.30 

33.60 

47,90 

Hitchhikers Guide to Galaxv 


76.60 


43.30 

Hollywood Hi Jinx 


76.60 

29.90 

44.80 

Hopptng Mad 

36.40 

49.90 

28.70 

47.90 

Hydrofool 


39.90 

29.30 

43.30 

Icon Jon 

26.20 

39.90 

29.90 

47.90 

Impact 

36.40 

49.90 

36.40 

49.90 

Iinpossaball 

26.20 

43.30 


49.90 

Impossible Mission 2 

29,30 

43.30 

29,30 

43.30 

Indian Mission 


47.90 


19.90 

Indiana Jones 

26.20 

39.90 

26.20 


Indoot Sports 

33.60 


33.60 

47.90 

Inhltrator 

33.60 

47.90 

27.80 

43.30 

Infodroid 

27.80 

43.30 


43.30 

Inheritance 

33.60 



46.40 

International Karate plus 

29.30 

43.30 

29.30 

43.30 

IntotheEaglesNest 

26.20 

39.90 

29.90 


It'sa Knock Out 

26.20 


24.90 

36.40 

JacktheNippcr2 

33.60 

47.90 

47,90 

56,50 

Jackal 

29.90 

47.90 


43.30 

Jagd auf roter Oktobet 

44.80 

58.80 

29.90 

47.90 

Jewels ofDarkness 

47.90 

59.90 

29.90 

39.90 

Jinxter 


59.90 

29.30 

43.30 

Karnov 

36.40 

49.90 

26.20 


Kettle 

26.20 

43.30 


43.30 

Kids Play 

39.90 


36.40 

49.90 

KilleduntilDead 

33.60 

39.90 

26.20 

43.30 

KnightOic 

43.30 

58.80 

26.20 

37.10 

Knighlmats 

33.60 

47.90 

33.60 

39.90 

Konami Arcade Collection 

33.60 

56.50 

29.30 

43.30 

Konami coin up Hits 

26.20 

47.90 

29.30 

49.90 

Krackoul 

27.80 

3 B .60 

26.20 

43.30 

LazerTag 

27.80 

43.30 

26.20 

47.90 

Leaderboard Golf 

33.60 

47.90 

29.90 

46.00 

Leaderboaid Touinament 

19.10 

33.60 

23.10 

38.60 

Lee Enfield 

33.60 

47.90 

29.30 

43.30 

LegionsofDeath 

26.20 


33.60 

47.90 

Leviathan 

26.20 

35.50 


29.90 

Lightforce 

26.20 

39.90 

26.20 

43 J 0 

Little Compu ter People 


47,90 

39.90 

56.50 

Living Daylights 

29.30 

43.30 

33.60 

47.90 

Livingstone 

29.90 

47.90 

33.60 


Lucas Film Compilation 

33.60 

47.90 

33.60 

47.90 

Luky Luke Nitroglycerin 


38.60 

33.60 

47.90 

Mach 3 

33.60 

46.40 


44.80 

Mad Balls 

26.20 

43.30 

33.60 

47.90 

Mag Max 

23,10 

38.60 

29.90 


Magnificent 7 

33.60 

56.50 

29.90 

47.90 

MarbleMadness 




43.30 

Constr DeLuxe 

43.30 


26.20 

38.60 

MarbleMadness Constr. Set 

29.30 


33.60 

47.90 

Marsport 


44.80 


47.90 

Mask 

33,60 

39.90 

27.80 

39.90 

Mask2 

33.60 

39,90 

23.10 

47.90 

Matchday2 

27.80 

43 J 0 

38.60 

49.90 

Meltdown 

29.30 

43.30 

33.60 

47.90 

Mercenary 

33.60 

57.20 

29.30 

47.90 

Mercenary (Neu) 

36.40 

49.90 


Metrocioss 

Mewilo 

Miami Vice 

MickyMouse 

Mindfighter 

Mindshadow 

Mission Genocide/Bombscare 

Mission Omega 

Monopoly 

Monty on the Run 

Muider on the Atlantic 

Nebulus 

Nemesis 

Nick Faidos Open 
North Star 
Not a Penny moie 
Now Games 3 
NowGames4 
Obsidian 
Ontherun 
One 

Out ofthis World 
Out Run 
Paperboy 
Par Five Golf 

Passengers on the Wind 2 

PesstantsTale 

Pegasus Bridge 

Phantom Club 

Pink Panther 

Pirates6128 

Power Plays 

Prodigy 

Pub Games 

Pulsator 

Ouestor 

Rampage 

Ramparts 

Rana Rama 

Realm/SpacedOut 

Hebel Star/Pneu Hamm 

Red LED 

Revolution 

Road Runner 

RollingThunder 

Rygar 

Saboteur 

Saboteur 2 

Saracen 

Scalextric 

ScoobyDoo 

Scrabble 

Scruples 

Sentinol 

Shackled 

Shadow Skimmer 

Shadow of Mordor 

Sbaolins Road 

Shogun 

Short Circuit 

Sidearms 

Sidewalk 

SiientService 

Silicon Drearns 

SixPack 

SixPack2 

SixPack 3 

SkateCrazy 

Slaine 

Slap Fight 

Solid Gold 

Solomons Key 

Sorc8ierLord 

Souls ofDatkon 

Space Haxrier 

Spitfire 40 

Spy Trilogy 

Spy Versus Spy 


Cass . 

Dish . 

Spy Versus Spy 3 

26.20 

39.90 

26.20 

38.60 

Stainless Steel 

27.80 

46.40 


47.90 

Stairway to Hell 


39.90 

26.20 

43.30 

Star Games 1 


47.90 

36.40 

49.90 

Star Games 2 

33.60 


49.90 

67.00 

StarWars 

33.60 

47.90 


49.50 

Starglider 

47.90 

59.90 


24.90 

Starquake 


37.10 


46.40 

Steve Davies Compilation 


33.60 

33.60 

47.90 

StraigbtSix 

33.60 

47.90 


43.30 

Strenge Loop 


46.40 


57.20 

Street Fighter 

36.40 

49.90 

29.90 

46.40 

Su8stHawk 

26.20 


26.20 

43.30 

Street Sports Basketball 

36.40 

49.90 

29.30 


Sttike Force Harrier 

33.60 

47.90 

33.60 

47.90 

Stryfe 


46.40 

47.90 

59,90 

Summer Gold Compendium 

33.60 


29.30 


Sunstar 

29.90 


33.60 


Super Hang on 

33.60 

47.90 

29.30 


Super Sprint 

33.60 

39.90 

29.30 


Survivot 

26.20 

39.90 

29.30 

43.30 

Sweevos World 


46.40 

33.60 

47.90 

Swords & Sorcery 


46.40 

27.80 

39.90 

Taipan 

24,70 

39.90 

33.60 

47.90 

Target Renegarde 

33.60 

49.90 

29.90 


Tarzan 

27.80 

39.90 

33.60 

47.90 

TenGrealGames2 

33.60 



49.90 

Terra Cresta 

29.90 

47.90 

39 JO 

56.50 

Terror of the Deep 

29.30 

43.30 

29.90 

47.90 

Tetris 

33.60 

38.60 

33.60 

44.80 

ThePawn 


59.90 


55.70 

They sold a Million 3 

29.30 


33.60 


Thing on a Spring 

29.30 


29.30 

43.30 

Thriller Pack 

19.10 


28.70 


Throne ofFire 

26.20 


26.20 

43.30 

Thrust/Ninja Master 


24.90 

27.80 

43.30 

Thrust2/ParabuJä 


24.90 

33.60 

47.90 

Thurider Cats 

29.90 

47.90 

33.60 

47.90 

Thuuderzone/Think 


24.90 

23.10 

38.60 

Time and Magic 

47.90 

47.90 


24.90 

Tomahawk 

33.60 

47.90 


24.90 

Top Ten Collection 

33.60 


33.60 

47.90 

Tour de Force 

33,60 

47.90 

29.30 

44.80 

Tournament of Death 

33.60 

47.90 

33.60 

47.90 

Trailblazer 

26.20 

36.60 

27.80 

39.90 

TrapDoor2 

29.90 

45.00 

26.20 

39.90 

Trio Hit Pack 


47.90 

29.30 

49.50 

Trivial Baby Boomet 

47.90 

59.90 

23.10 

29.90 

Trivial Genus Edition 

47.90 

59.90 

23.10 

34.00 

Trivial Young Edition 

47.90 

59.90 

33.60 

47.90 

Tujad 


49.50 

23.10 

38.60 

Twoontwo Basketball 

33.60 

47,90 

33.60 

47.90 

Ultima Ratio/Gunstar 


24.90 

33.60 

47.90 

Umtrax 

29.90 

47.90 

29.30 

43.30 

Venom Strikes Back 

39.90 

47.90 

36.40 

49.90 

Vermeer 


58.80 

29.90 


Wayof the Tiger 


44.80 

29.90 


We are the Champions 

33.60 

56.50 

26.20 

43.30 

Werwolves of London 

36.40 

47.90 

29.90 

49.50 

Western Games 

29 JO 

44.80 

23.10 

38.60 

Wintergames 

33.60 

47.90 

33.60 

47.90 

Witness 


76.60 

29.30 

43.30 

Wizard Wars 

37.30 

49.90 

33.60 

43.30 

WizbaD 

23.10 

35.50 

47.90 

59.90 

Wolfman 

33.60 


27.80 

47.90 

Wonderboy 

33.60 

47.90 

33.60 

47.90 

Working Backwards 


46.40 

29.90 

46.40 

World Class Leaderboard 

26.20 

47.90 

36.40 

49.90 

World Cup Cameval 


44.80 

33.60 

47.90 

World Games 

33.60 

47.90 

23.10 

38.60 

Xarq 

33.60 


26.20 

39.90 

Xevious 

29.30 

43.30 

26.20 

39.90 

Xoi 

27.80 

43.30 

39.90 

56.50 

Yes Prime Minister 

47.90 

59.90 

29.90 


YogiBear 

33.60 

47,90 

23.10 

38(60 

Ziggurat 

29.90 

47.90 

33.60 

45.00 

Zoids 


46.40 

33.60 

47.90 

Zombie 


49.90 

29.30 

43 J 0 

Zynaps 

24.70 

39.90 


KUNSTLEDER-HAUBEN 


CPC-ZUBEHÖR 


AMSTRAD 


CPC 464/664 . 19.80 

CPC 6128 . 19.80 

Monitor GT 64/65 . 27.90 

Monitor CTM 640/644 . 29.95 

DMP 2000/2160/3000/3160 . 19.80 

DMP 4000 . 29.95 

LQ 3500 . 24.90 

Star NL/ND/NR 10. 24.90 

Star LC 10. 24.90 


Kabel CPC/an Fernseher m. Scart . 19.80 

Bildschirmfilter GT 64/65 . 29.00 

Bildschirmfilter CTM 640/644 . 39.95 

Dmckerkabel 464/664 . 29.80 

Druckerkabel 6128 . 29.80 

Monitorverlängerung CPC 464 . 27.90 

Monitorverlängerung CPC 664/6128 . 34.90 

Musik-/Data-Recorder. 69.00 

Kabel Computer/Recorder . 19.80 



SONDERPOSTEN 


Drucker 

Schneider DMP 2000 nur 

Disketten 

3" in Hartbox 10 Stück nur 


398.- 

59.- 


So finden Sie unser Ladengeschäft: 

A 42 (Emscher-Schnellweg) Abfahrt 
Castrop-Rauxel, B 235 Richtung Witten. 2. 
Ampel rechts1. Ampel links, dann 2. 
Ampel links. Uber 60 Parkplätze stehen 
Ihnen direkt am Hause kostenlos zur 
Verfügung. 


CPC 464 und Grünmonitor GT 65 . 398.00 

CPC 464 u. Farbmonitor CTM 644 . 698.00 

CPC 6128 und Grünmonitor GT 65 . 798.00 

CPC 6128 u. Farbmonitor CTM 644 . 1098.00 

Drucker 

DMP 2160 incl. Kabel für 6128 . 498.00 

DMP 3160 incl. Kabel für PC. 598.00 
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obere MÜKSTERüTR 

.ggsssss 

VertragshandJer 


Spiele für PC 


20.000 Meilen unter dem Meer 59 . 9(1 
221B Baker Street 79,60 

3 D Helicopter 58.80 

500 CC Grand Prix 74.30 

Academy 59.90 

Ace 59.90 

Ace 2 54.10 

Ace of Aces 59.90 

Aces High 77.40 

Alter Ego (Male) 76.60 

Ancient Art of War 74.30 

Ancient Art of War and Sea 74.30 

Annais of Rome 59.90 

Arctic Fox 74.30 

Arkanoid 47.90 

Armchair Quarterback 33.60 

Asterix im Morgenland 59.90 

B-24 Bomber 74.30 

Backgammon 33.60 

Balance of Power 77.40 

Bard’s Tale 1 74.30 

Battle of Antietan 89.90 

Bedlam 58.80 

Beyond Zork 76.60 

Black Jack Academy 89.90 

Blueberry und das Gespenst 59.90 
Bob Moräne im Dschungel 58.80 

Bob Moräne in Middle Age 59.90 

Bob Moräne Science Fiction 58.80 
Bob Winner 83.40 

Bobo 58.80 

Borderzone 76.60 

Boulderdash 1 27.80 

Boulderdash 2 27.80 

Breakers 76.60 

Brian Clough Football 76.60 

Brimstone 76.60 

Bruce Lee 59.90 

Bureaucrazy 99.10 

California Games 66.60 

Chamonix Challenge 76.60 

Championship Football 59.90 

Charnpionship Golf 76.60 

Charlie Chaplin 77.40 




AATARI 

System-Fachhandlei_ 


T T X 0»«M77. 4- CASTROP **"*" 

ftMSTRRO 


Vertrags- 

händler 


Vertrags- 
handle r 


PC-Spielebox 
Perry Mason 


47.90 

59.90 


Flight S. Disc 7 Florida 

46.40 

PHM Pegasus 

74.30 

Flight S Disc 11 Michigan 

46.40 

Pirates 

69.90 

Flight S. Disc Japan 

46.40 

Plundered Hearts 

76.60 

Flight Disc San Francisco 

46.40 

Poker 

33.60 

Flight S. Western European Sc 

46.40 

Police Quest 

58.80 

Flight Simulator 

123.90 

Portal 

69.90 

Flight Simulator 3 

139.40 

President is missing 

a . A . 

Football Manager 

47.90 

Pro Golf 

33.60 

Football Manager 2 

58.80 

Project Stealth Fighter 

99.70 

Forth Protocol 

59.90 

Pxowler 

29.30 

Frank Brunos Boxing 

58.80 

PSI-5 Trading 

59.90 

Fugger 

57.20 

Psion Che ss 

69.90 

Gamma Games 

47.90 

Pub Poole 

33.60 

Gamma Games 2 

44.80 

Quadralian 

69.90 

Gato 

79.90 

Rendevous with Rania 

59.90 

Gauntlet 

85.20 

Rings of Zilfin 

76.60 

Gettysburg 

89.90 

Roadwar 2000 

76.60 

Gnome Ranger 

43.30 

Rock'n Wrcstle 

58.80 

Great Escape 

59.90 

Rockford 

59.90 

Gryzor 

58.80 

Romantic Encounter 

77.40 

Guild of Thieves 

74.30 

Saboteur 2 

43.30 

Hacker 2 

58.80 

Sapiens 

74.30 

Hanse 

76.60 

Scruples 

83.40 

Hardball 

66.60 

Shanghai 

57.20 

Hell Cat Ace 

49.90 

Shogun 

49.90 

Impact 

43.30 

Sidewalk 

59.90 

Lmpossible Mission 2 

69.90 

Silent Service 

69.90 

Indian Mission 

57.20 

Silicon Dreams 

58.80 

Indoor Sports 

66.60 

Skyrunner 

58.80 

Infidel 

89.90 

Soko Ban 

38.60 

Infiltrator 

76.60 

Solitaire 

58.80 

Isnogud 

76.60 

Solo Flight 

58.80 

Jagd auf Roter Oktober 

74.30 

Space Ace 

59.90 

Jet 

139.40 

Space Max 

119.70 

Jewels of Darkness 

57.20 

Space Quest1 

77.40 

Jinxter 

76.60 

Space Quest 2 

58.80 

Kampfgruppe 

89.90 

Spitfire Ace 

49.90 

Kings Quest 3er Pack 

74.30 

Starglider 

57.20 

Knight Orc 

58.80 

Starquake 

67.00 

Know — PC 

47.90 

Stationfall 

88.30 

Kobayashi Naru 

29.30 

Storm 

29.30 



Street Sports Basketball 

66.60 



Strike 

33.60 

Wir haben eine große 

Strike Force Harrier 

Strip Poker 2 

76.60 

67.00 

Auswahl an PC-Zubehör. 

Sub Battle Simulator 

66.60 

Fragen Sie bitte nach. 

Super Sunday 

Superstar Icehockey 

47.90 

66.60 

_ 


Tag Team Wiestling 

49.90 


Checkmate 

27.80 



Tau Ceti 

59.90 

Chessmaster 2000 

79.90 

LAffaire 

76.60 

Test Drive 

89.90 

Chuck Yeagers Adv Fl Trainer 

79.90 

L A Crackdown 

83.40 

Tetris 

58.80 

Classics 1 

55.70 

Leisure Suit Larry 

58.90 

The Pawn 

74.30 

Classics 2 

55.70 

Lord of the Rings 

59.90 

Thexder 

58.80 

Colossus Bridge 

56.50 

Luky Luke Nitroglycerin 

57.20 

Time and Magic 

67.00 

Colossus Mah Jong 

58.80 

Lunar Explorer 

89.90 

Tomahawk 

74.30 

Conflict in Vietnam 

76.60 

Macadam Bumper 

58.80 

Trace Sanction 

59.90 

Crazy Cars 

55.70 

Mach 3 

74.30 

Tracker 

58.80 

Cross Check 

59.90 

Maniac Mansion 

83.40 

Trantor 

67.00 

Crusade in Europe 

69.90 

Marble Madness 

74.30 

Travel Game 

76.60 

Cutthroats 

88.30 

Mech Brigade 

89.90 

Trinity 

105.40 

Dark Castle 

74.30 

Metropolis 

58.80 

Trivial Genus Edition 

76.60 

De Luxe Scrabble 

76.60 

Mewilo 

66.60 

Two on Two Basketball 

76-60 

Defender of the Crown 

66.60 

Might and Magic 

89.90 

Ultima 1 

76.60 

Diplomacy 

76.60 

Mind Dance 

33.60 

Ultima 3 

76.60 

Dragonworld 

59.90 

Mind Wheel 

76.60 

Ultima 4 

74.30 

Dream Warrior 

67.00 

Mindfighter 

83.40 

Ultima 5 

79.90 

Driller 

58.80 

Mindshadow 

59.90 

Universal Military Simulator 

76.60 

Eddy Edwards Sky 

83.40 

Missile Attack 

47.90 

Vegas Casino 

33.60 

Eden Blues 

74.30 

Moebius 

74.30 

Vermeer 

76.60 

Elite 

74.30 

Montezumas Revenge 

39.90 

Wheel of Fortune 

33.60 

Epyx (The Worlds Greatest) 

59.90 

Nine Princess in Amber 

59.90 

Where in the World 

69.90 

F-16 Falcon 

95.80 

Nord & Bert 

76.60 

Wilderness 

89.90 

Fahrenheit 4SI 

59.90 

Ogre 

76.60 

Witness 

88.30 

Five A Side Soccer 

33.60 

Ooze 

77.40 

Wizard Wars 

83.40 

Flight S. Disc 1 Texas 

46.40 

Orbiter 

88.30 

WizbaU 

58.80 

Flight S. Disc 2 Arizona 

46.40 

Passengers on the Wind 

76.60 

Wizzard Crown 

76.60 

Flight S Disc 3 California 

46.40 

Passengers on the Wind 2 

59.90 

World Class Leaderboard 

66.60 

Flight S. Disc 4 Washington 

46.40 

Paul Whitehead Teaches Chess 147.20 

World Games 

69.90 

Flight S Disc 5 Utah 

46.40 

PC Classics 

59.90 

World Series Baseball 

49.90 

Flight S Disc 6 Kansas 

46.40 

PC Gold Hits 

55.70 

Zork 3 

89.90 


Amstrad 

PPC 512 
PCW 9512 
PC 1640 

Schneider 


EuroPC 
Tower AT 
EGA AT 
Telefax 


ab 1298.00 
ab 2498.00 
4998.00 
2798.00 


Telefonische Bestellung: 


(02305) 3770 

(Tag und Nacht) 


Software_ 

Laplink 298.00 

Norton Commander dt. 229.00 

Norton Advanced Utilities 278.00 

PC Tools Deluxe 148.00 

Multiscreen 1640 

CGA-Emulation 89.00 

PC-Zubehör_ 

Diskettenlaufwerk 3'/2 ", 

720 KB mit b'M " Einbaurahmen 
auch für PC 1512/1640 278.00 

20 MB Festplatte zum 
Einstecken (Filecard) 698.00 

Joystickkarte XT/AT für 
2 Analogjoysticks 69.00 

Analogjoystick Quickshot 39.80 

Mouse Pad 19.80 

Disketten_ 

no name 5'A " 2 D 10 Stck. 9.95 

BitStar 5V*" HD 10 Stck. 39.80 

no name 3'/2" 720K 10 Stck. 29.80 

boeder 3 Vi " 1,44 MB 10 Stck 89.00 

Kunstlederhauben 

19.80 
19.80 
19.80 


PC 1512/1640 Tastatur 
Schneider PC 2640 Tastatur 
no name MF Tastatur 
PC 1512/1640 
eintlg.komplett 
PC 1512/1640 zweitlg Set 
Schneider PC 2640 
zweitlg Set 

DMP 2000/2160/3000/3160 
Star NL/ND/NR 10 
Star LC 10 


49.80 

59.80 

59.80 

19.80 
24.90 
24.90 


Drucker 


LQ 3500 
DMP 4000 

CAD 


nur 798.00 
nur 798.00 


Power CAD 

CAD Zeichenprogramm und 
Grafiktablett 998.00 

Akustikkoppler 


Dataphon S 21d-2 


nur 198.00 


Ladengeschäftszeiten: 
Montag-Freitag 9.00 - 13.00 Uhr 
15.00 -18.30 Uhr 
Samstag 9.00 — 14.00 Uhr 
Länger Samstag 9.00 - 18.00 Uhr 

Versand per Nachnahme zuzügl. Versandkosten. Oder Vorkasse 
auf Psch.-Kto. Nr 69422-460 PschA Dortmund zuzügl. 5, - DM Ver¬ 
sandkosten. 

Ausland nur per Vorkasse auf Psch -Kto. zuzügl. 10,- DM Versand¬ 
kosten Bitte bei allen Bestellungen Computertyp angeben! 

Besuchen Sie unser Ladengeschäft und lassen Sie sich durch 
unser geschultes Fachpersonal beraten. Wir haben laufend 
günstige Angebote und stark reduzierte Vorführgeräte. 

Irrtumer und Fr^isanderungen Vorbehalten 


O Senden Sie mir bitte Ihren Katalog 
(2,— DM in Briefmarken liegen bei) 

O Hiermit bestelle ich per Nachnahme. 
O Incl. kostenlosem Katalog 


BESTELLSCHEIN 


Vorname. Name 


Straße, Hausnummer 


PLZ. Ort 


Anz 

Artikel 

Preis 




















Computertyp 


Datum. Unterschrift 






































I—Tips & Tricks 


100,- DM 

für 1 KB 

die Herausforderung 

Eine Chance für alle Softwareentwickler und die es wer¬ 
den wollen. Wir bieten Ihnen ab dieser Ausgabe eine 
Möglichkeit, mit einem selbstgeschriebenen Programm 
einhundert Deutsche Mark zu gewinnen. 

Ja, Sie haben richtig gelesen! ICK), — DM gibt es für ein (1) 
KB Programm. Es werden keine Bedingungen gestellt, außer 
daß das Programm auf dem Datenträger (Diskette/Kassette) 
nur 1KB anzeigen darf. Auch der Bereich ist freigestellt. Das 
heißt, es kann sich um ein Spiel, Utility, Anwendung, Grafik 
oder was auch immer Ihnen einfallen sollte. 

Jeden Monat wird eins der besten Programme honoriert. Be¬ 
sitzen Sie ein solches Programm, dann schicken Sie es mit 
Programmbeschreibung/ASCII an den: 

DM V-Verlag 
Fuldaerstr.6 
Stichwort: 100 DM 
3440 Eschwege 

Programmbeschreibung zu ,,Minensuche”: 

Das Programm wurde recht einfach gehalten, damit jeder es 
sich nach eigenen Wünschen aus- oder umbauen kann. Bewe¬ 
gen Sie sich, von links oben nach rechts unten, durch ein von 
Minen verseuchtes Gebiet. Ein Detektor wird Ihnen dabei 
helfen. Aber aufgepaßt, der “Riecher“ zeigt nur im Umkreis 
von zwei Feldern eine Mine an! Außerdem ist er auch noch 
defekt. Werden Sie es schaffen? Je höher die Ziffern (Aus¬ 
schlag) desto höher ist die Gefahr, auf eine Mine zu treten. 
Und nun wünschen wir Ihnen viel Spaß! 

(cd) 


KM 4 5 



für 464-664-6128 


HJL 


10 REM by AMSTRAD INT. 1988 [2205] 

20 MODE 1:BORDER 26:DIM a(30):DIM b(30) [2573] 

30 FOR a=0 TO 400 STEP 10:PLOT x , a :DRAWR 6 [1802] 
40,0:NEXT 

40 FOR a=0 TO 640 STEP 10:PL0T a,y:DRAWR 0 [1755] 
,400:NEXT 

50 FOR n=l TO 30 [850] 

60 a(n)=INT (RND*40):b(n)=1NT (RND*24) [2568] 

70 NEXT n [366] 

80 x=l : y=l [850] 

90 LOCATE x,y:PRINT"*" [799] 

100 FOR n=l TO 30 [850] 

110 IF a$ < >"" AND ABS(x-a(n))< 2 AND ABS(y- [4077] 

b( n ) ) < 2 THEN m=m+ 10/ABSC x-a (n) + 0.1) + 10/ABS 
(y-b(n)+ 0 . 1 ) 

120 IF x=a(n) AND y=b(n) THEN 220 [1801] 

130 NEXT n [366] 

140 LOCATE 35,1:PRINT INT (m):SOUND 1,10,1 [3535] 
0,10:FOR 2=1 TO 500:NEXT 2 

150 a$=INKEY$ [278] 

160 IF a$="p" AND x<40 THEN x=x+l [2234] 

170 IF a$="o" AND X>1 THEN x=*-l [1334] 

180 IF a$="q" AND y>l THEN y=y-l [2081] 

190 IF a$="a” AND y<24 THEN y=y+l [1196] 

200 IF x=40 AND y=24 THEN 240 [2298] 

210 GOTO 90 [312] 

220 PRINT"B U M M. SIE SIND EXPLODIE [2372] 
RT! " 

230 BORDER 0:S0UND 1,50*RND,20,10:BORDER 2 [2518] 
:GOTO 230 

240 PRINT"Geschafft! ! Spiei ENDE":END [2457] 


V/24 

Die V/24-(RS 232-)Schnittstel!e liefert Ihnen 
alle Signale, die Sie zum Betrieb eines se¬ 
riell angeschlossenen Peripheriegerätes 
wie Modem oder Akkustikkoppler benöti¬ 
gen. Die Karte ist voll kompatibel zu kom¬ 
merziellen Geräten mit V/24-(RS 232-) 
Schnittstelle. Alle Steuerbefehle zur Karte 
sind als RSX-Befehle gehalten, somit kann 
die Karte problemlos aus eigenen Program¬ 
men angesteuert werden. 

Hardware-Echtzeltuhr 

Diese Karte bietet Ihnen eine akkugepuffer¬ 
te Hardware Uhr für Ihren AMSTRAD CPC, 
Sie können also jederzeit per RSX-Befehl 
die aktuelle Uhrzeit und das aktuelle Datum 
in den Rechner einiesen. Somit sind Echt¬ 
zeitsteuerungen kein Traum mehr... 

EPROM-Programmlerkarte 

Gefällt Ihnen das Original-Betriebssystem 
Ihres CPC nicht mehr? Dann brennen Sie 
sich doch Ihr eigenes mit unserer EPROM- 
Karte. Alle EPROM's der Typen 2732 bis 
27128 können problemlos mit der dazugehö¬ 
rigen Software gebrannt werden, die Platine 
ist zur Aufnahme von EPROM’s der Typen 
27256 und 27512 vorbereitet, hier muß nur 
die Software angepaßt werden. Der 
EPROMMER besteht aus zwei Platinen, 
Haupt- und Programmierplatine. 


CPC Platinenservice nur solange Vorrat reicht 


PIO-Karte 

Die PIO-Karte ist die Schnittstelle zur 
(Peripherie-)Welt Mit dieser Karte haben Sie 
48 freiprogrammierbare Ein- oder Ausgän¬ 
ge. Damit können Sie Ihren CPC zu einer 
Meß-, Steuerungs- oder Regelzentrale aus¬ 
rüsten. Jeder Kanal läßt sich einzeln über 
Portbefehle ansteuern und mit einer beliebi¬ 
gen Information belegen. Bei der Fertigver¬ 
sion zeigen Leuchtdioden bei 24 der 48 Ka¬ 
näle den Zustand an, 


Netzteil 

Die Stromversorgung für Ihre Hardware. 
Das Netzteil liefert vier geregelte Span¬ 
nungen: 

5 Volt/3 Ampere für Logikbausteine 

-/+ 12 V /100 Milliampere für die V/24 

Schnittstelle 

24Volt/250Mil!iampere zum Betrieb des 
EPROMMERS. 

Zum Betrieb des Netzteiles benötigen Sie 
zusätzlich einen Transformator, die Daten 
entnehmen Sie bitte der Beschreibung. 

Zu allen Karten wird eine Kopie des jeweili¬ 
gen Artikels mit der dazugehörigen Softwa¬ 
re mitgeliefert 


Platinen, bestückt 


V/24 Platlnen-Set 
kompl, funktionsfertig 
Anleitung 

1 Diskette mit Treibersoftware 
1 Basisplatine bestückt 
1 Verbindungskabel 
1 V/24 Platine bestückt 


Best.-Nr.: 501 
Set-Preis 


nur 199,- DM‘ 


Netzteil Platinen-Setjohne Trafo!) 
kompl., funktionsfertig 
mit Anleitung 

Best.-Nr.: 502 nur 99,- DM‘ 


Echtzeltuhr Platinen-Set 
kompl, funktionsfertig 
Anleitung 

1 Diskette Treibersoftware 
1 Basisplatine bestückt 
1 Verbindungskabel 
1 Echtzeituhr-Platine bestückt 
Best.-Nr.: 503 
Sef-Preis 

PIO Platinen-Set 
kompl , funktionsfertig 
Anleitung 

1 Diskette Treibersoftware 
1 Basisplatine bestückt 
1 Verbindungskabel 
1 PlO-Platine bestückt 
Best -Nr.: 504 
Set-Preis 


nur 149.- DM* 


nur 249,- DM* 



EPROMMER Platlnen-Set 
kompl, funktionsfertig 
Anleitung 

1 Diskette Treibersoftware 
1 Basisplatine bestückt 
1 Verbindungskabel 
1 Eprommer-Platine bestückt 
Best.-Nr.: 505 
Set-Preis 


nur 249.- DM* 


Platinen, unbestückt 

Zu jeder unbestückten Platine erhalten Sie eine 
komplette Anleitung. 

Basispiatine beids besch 

Best.-Nr.: 506 nur 15,-DM 


Centronicsplatine 
Best -Nr.: 507 
Netzteilplatine 
Best -Nr.: 506 


eins besch 
nur 15.- DM* 

eins besch 
nur 15,- DM* 


Echtzeituhr 
Best -Nr.: 509 


beids besch 
nur 15,- DM* 


MIDI-Intertace und Timer-Platinen 

Best -Nr.: 510 nur 29,- DM 


* Unabhägig von der Anzahl der bestellten Ar¬ 
tikel berechnen wirfür das Inland 3, - DM bzw. 
für das Ausland 5,- DM Porto und Verpackung 
Bitte benutzen Sie die Bestellkarte 


DMV Verlag * Postfach 250 * 3440 Eschwege 




































W issen äla carte! 

Themen-Sonderhefte von DMV 


CPC-Sonderheft Nr.7 
Das neue CPC-Sonderheft ist da! 

Mit dem neuen CPC-Sonderheft er¬ 
schließen Sie sich eine völlig neue 
Welt der Software. Eine geballte La¬ 
dung hochwertiger Programme aus 
den Bereichen Anwendung und 
Spiel wird die Herzen aller CPC- 
Besitzer (und die Taktfrequenz aller 
CPCs) höher schlagen lassen. 

Die informativen Grundlagenartikel 
vermitteln interessante Themen auf 
leicht verständliche Art, ideale Lektü¬ 
re für Einsteiger und Fortgeschritte¬ 
ne. Programmierer werden ihre eige¬ 
nen Programme künftig noch effekt¬ 
voller gestalten können, eine große 
Sammlung von Tips & Tricks zu Ba¬ 
sic, Assembler und CP/M bietet ein 
äußerst vielfältiges Spektrum für alle 
möglichen Anwendungsgebiete. Für 
die Hardware-Freunde haben wir ei¬ 
nen kompletten und absolut lei¬ 
stungsstarken Sprachsynthesizer 
vorbereitet. Die komplette Bauanlei¬ 
tung sowie die zugehörige Software 
erwarten Sie im neuen CPC- 
Sonderheft. 



f -»OOKQ 
-Softwa,, 


de Luxe 


Grundlagen; 

Alles über Floppy- 
Progrommlerung .zSH 


Spiele^ 

3D-Htxi 

Auxllls - Im Reich der Magie 


A nwendungen : > 

MuBlkprogramm de Luxe 
Chemie - ganz einfach 


CP/M : 

Viele Tips und 
Ergänzungen 


w . 

7 


Tips & rncks : 

Stark; 

Baslc-Progrnmme 

verkürzen 


Har dware: 

Sprachsynthesizer 


Einige Beispiele aus dem Inhalt: 

Anwendungen: 

- Music-Star ist ein Programm der Super¬ 
lative. Per Joystick sind Sie in der Lage, ei¬ 
gene Musikstücke schnellstens zu pro¬ 
grammieren. Die entsprechenden Noten 
werden dabei ständig auf dem Bildschirm 
angezeigt, es gibtviele Optionen zur Ma¬ 
nipulation und Nachbearbeitung. Musik¬ 
fans dürfen diesen Hit nicht versäumen. 

Spiele: 

- Auxilia entführt Sie in die Welt von Magie 
und Zauber. Ein packendes Strategie- und 
Actionspiel, (auf anderen Computern 
auch unter ARCHON bekannt) 

- Mit Supertron 3D erwartet Sie ein effekt¬ 
volles Actionspiei mit echter 3D- 
Atmosphäre. 

Tips & Tricks: 

- Wie Sie ihre selbstgeschriebenen BASIC- 
Programme erheblich verkürzen können 
zeigt unser BASIC-Programmcode- 
Kompressor. 

Hardware: 

- Komplette Bauanleitung für einen 
Sprachsynthesizer. Die zugehörige Soft¬ 
ware sucht ihresgleichen, vergleichen 
Sie. 

Grundlagen: 

- Ausführlicher Bericht über den Floppy- 
Controller und seine Programmierung. 


Sonderhefte 1/86 und 2/66 
Software - Listings - Infos für alle Schneider CPC! 
Sonderheft 1 beinhaltet eine abwechslungsreiche 
Sammlung beliebter und nützlicher Programme aus 
den Sparten Anwendung, Spiel und Tips & Tricks 
Der groBe DFÜ-Sondertell zeigt Ihnen alles Wis- 
senswertezur Datenfernübertragung auf und vermit¬ 
telt Basiswissen Insgesamt 28 aktuelle Listings - 
Software satt im CPC Sonderheft 1/86! 

SH-Nr.l Best.-Nr.: 307 14. - DM • 

SH-Nr. 2 Best -Nr.: 308 14, - DM • 


Das neue CPC-Sonderheft Nr. 7 ist ab 14.9.88 
überall im Handel erhältlich und kostet 
14,- DM*. Best -Nr 313 

Die Databox dazu besteht aus zwei 3“ Disketten (je 
24,- DM*), bzw. Kassetten (je 14,- DM‘). 

Im günstigen Kombipack erhalten Sie beide 
Disketten für 38,- DM*, oder Kassetten nur 25,- DM*. 


Sonderheft 3/86: 

Reviews - Spiele - Anwendungen- ein wahres 
Hit-Sammelsurium birgt das CPC-Sonderheft 3/86. 
Die Spielprogramme im Überblick und viele Tips, Lö¬ 
sungen und Karten zu Compulerspielen und Aben¬ 
teuern. Begeistern wird Sie auch der Flugsimulator 
- ein echter Leckerbissen zum Eintippen! Fantasy- 
und Adventurefreunde werden sich über das erste 
Rollenspieladventure Monstergarten sicherlich ge¬ 
nauso freuen, wie die Hardware-Freunde über die 
Echtzeituhr zum Selbstbau 
Best-Nr.: 309 14.-DM* 


Sonderheft 4/87 

Programmiersprachen - Anwendungen in Turbo- 
Pascal und mannigfaltige Informationen stehen im 
Mittelpunkt des 4. CPC-Sonderheftes. Mit über 200 
Seiten praller CPC Informationen, Tips und wertvol¬ 
len Programmen, das ideale Sammelsurium für je¬ 
den CPC-Anwender. Interessiert!? - dann sollten 
Sie sich schnell entscheiden, denn es sind nur noch 
wenige Restposten verfügbar. 

Best-Nr.: 310 14,- DM* 


Sonderheft 5/S7 

Power für Ihren CPC! Über 500 KByte leistungsstar¬ 
ke Software aus vielen Anwendungsbereichen brin¬ 
gen Ihren CPC auf Trab Ob Einsteiger, Fortgeschrit¬ 
tener oder Profi - hier finden Sie alles, was Ihr Com¬ 
puter braucht Viele Tips & Tricks, Grundlagenarti¬ 
kel, Spiele und Anwendungen lassen dieses 
Sonderheft zu einer unentbehrlichen Arbeitshilfe 
werden 

Best.-Nr.: 311 14.- DM* 


Sonderheft 6/88 

Grundlagen, viele Tips, nützliche Anwendungen 
und tolle Spieiprogramme - ein Muß für jeden CPC- 
Anwender. Dieses Sonderheft behandelt das ge¬ 
samte Spektrum möglicher CPC-Einsatzgebiete und 
bietet Informationen für jedermann U a. komplette 
Lagerbuchführung, relative und sequentielle Datei, 
neues Disketten-DOS, viele Lemprogramme, CP/M 
und Turbo Pascal und, und, und 
Best.-Nr.:312 14,- DM* 



* Unabhängig von der Anzahl der bestellten Zeitschriften berechnen wir für das Inland 3,- DM 
bzw. für das Ausland 5,- DM Porto und Verpackung. Bitte benutzen Sie die Bestellkarte. 
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Radius 

Hersteller: Players 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: ca. 12,— DM 


Schießen Sie Ihren 
Weg frei durch die 
Formationen der an¬ 
greifenden Aliens, 
um einen wichtigen 
Raumsektor aus den 
Krallen der Aliens zu 
befreien. Bedenken 
Sie, daß die. Hoff¬ 
nungen der ganzen 
Galaxis mit Ihnen 
situi. 



CPC 464 Kl CPC 664 K CPC 6128 Kl 

Meiden Sie sich nie freiwillig! 

Erinnern Sie sich noch, was Ihnen Ihre 
Lehrer auf der Flugakademie einge- 
schärft haben? Melden Sie sich niemals 
freiwillig für Himmelfahrtskomman¬ 
dos. Und nun haben Sie sich tatsächlich 
für eine äußerst gefährliche Mission 
gemeldet. Natürlich, Sie sind ein her¬ 
vorragender Pilot, vielleicht sogar der 
Beste, trotzdem hat bis jetzt noch nie¬ 
mand den RADIUS Sektor durchflogen 
und ist zurückgekehrt, um zu berich¬ 
ten, was sich dort zuträgt. 

RADIUS ist die bedeutendste Hyper¬ 
space Transportroute diesseits des San- 
volgrani Riffes. Vor ungefähr sechs 
Monaten übernahm der Feind die Kon¬ 
trolle über diesen Raumsektor, und alle 
Versuche ihn zurückzuerobem sind ge¬ 
scheitert. Ein Pilot, der schnell, gut 
und klug ist, hätte eine Chance, die 
Mission zu einem Erfolg zu führen. 
Dieser Pilot sind Sie. Um Ihre Aufgabe 
zu erfüllen, bekommen Sie den mo¬ 
dernsten Jäger der Flotte zur Verfü¬ 
gung gestellt, den Ripley Class Hunter 
Killer Fighter. Werden Sie lebend aus- 
dem RADIUS Sektor zurückkehren 
und Ihre Mission erfüllen? 

Kampf den Aliens 

Schon hat Ihr Kampf begonnen. Kaum 
sind Sie von Ihrer Basis gestartet, at¬ 
tackiert Sie bereits die erste Formation 
von angreifenden Aliens. Und da gibt 
es reichlich Auswahl, da die Aliens mit 
allen zur Verfügung stehenden Mitteln 
angreifen. So können Angreifer durch¬ 
aus schon einmal als blaue Kugeln er¬ 
scheinen; grundsätzlich gilt, daß alle 
Objekte, die sich Ihnen nähern, als 
feindlich einzustufen sind. Zu Beginn 
Ihres Kampfes stehen Ihnen sechs 
Schiffe zur Verfügung. Jedesmal, 


wenn Sie einen Ihrer Feinde berühren, 
geht Ihnen ein Leben verloren, so daß 
äußerste Umsicht geboten ist, wenn 
sich Ihnen eine Formation nähert. An¬ 
sonsten müssen Sie versuchen, so viel 
Angreifer wie irgendmöglich zu elimi¬ 
nieren. 

Die Szenerie stellt sich in der Seitenan¬ 
sicht dar, vor einem Weltraumhinter¬ 
grund findet dann Ihr Kampf zur Be¬ 
freiung des Sektors RADIUS statt. Die 
Stoßrichtung Ihres Auftrages führt Sie 
von links nach rechts, von der rechten 
Seite sind somit auch die meisten Über¬ 
griffe der Aliens zu erwarten. Doch 
achten Sie darauf, sich den Rücken 
freizuhalten. Von Zeit zu Zeit kann es 
geschehen, daß sich der Feind Ihnen 
von hinten nähert. In diesem Fall soll¬ 
ten Sie versuchen, den Feind zu umflie¬ 
gen, um Ihn vor die Laserkanone zu be¬ 
kommen. 

Resümee 

RADIUS ist ein klassisches Shoot’em 
up, das, wie die meisten Realisationen 
dieses Themas, seinen Hintergrund in 
einer Weltraum-Auseinandersetzung 
findet. Einige, zum Teil recht schwie¬ 
rige Level, gilt es zu bewältigen bis Ihr 
Auftrag erfüllt ist. Von der grafischen 
Realisation ist RADIUS recht gut ge¬ 
lungen, nur die Steuerung hätte etwas 
präziser ausfallen können. 


Spslldee Bedierungs- Doku- Graftk Souna Preis/ 

freundlichkeU mentelian Leistung 



Bei der recht hohen Frequenz, in der 
die Aliens auf den Spieler einstürmen, 
hätte eine höhere Feuergeschwindig¬ 
keit das Spiel reizvoller gestalten kön¬ 


nen. Ansonsten muß gesagt werden, 
daß hier doch ein recht ordentliches 
Preis-/Leistungsverhältnis besteht. 
Deshalb möchten wir dieses Spiel den 
Freunden des Shoot’em up’s emp¬ 
fehlen. 

(mm) 

Cybernoid 

Hersteller: Hewson 
Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: ca. 40,— DM 

CPC 464 & CPC 664 Kl CPC 6128 Kl 

Die Depots 

Vor einigen Jahren legte die Födera¬ 
tion umfangreiche Depots an, um je¬ 
derzeit über ausreichende Mengen an 
Waffen, Munition und anderen wichti¬ 
gen Gütern verfügen zu können. Im 
Laufe der Zeit bekamen auch verschie¬ 
dene Piratengruppen Kenntnis von der 
Existenz dieser Depots. Natürlich stell¬ 
ten diese Depots einen ungeheuren An¬ 
reiz für die Piraten dar, da Sie dort die 
modernsten Waffen der Föderation 
vermuteten. Sie hatten nicht unrecht, 
wie die erste Bestandsaufnahme eines 
geplünderten Depots ergab. Ange¬ 
sichts dieser ernsten Lage sah sich die 
Föderation , gezwungen, geeignete 
Schritte zu unternehmen, um die De¬ 
pots der Föderation aus den Klauen der 
Piraten zurück zu erobern. 

Heere von Piraten 

Nach der Eroberung der diversen De¬ 
pots begannen die Piraten, die Syste¬ 
me, die eigentlich zur Abwehr von An¬ 
greifern gedacht waren, für ihre 
Zwecke umzufunktionieren. Nun ist 
die planetarische Abwehr auf die Föde- 
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Diesmal sind es Pi¬ 
raten, die uns die 
Luft abdrehen wol¬ 
len. Sie haben meh¬ 
rere Depots mit Bo¬ 
denschätzen, Waffen 
Juwelen und anderen 
Wertgegenständen 
geplündert. Nun sind 
Sie an der Reihe, die 
Sache wieder in Ord¬ 
nung zu bringen. 


Alles in allem ein Programm, das Stun¬ 
den spannender Unterhaltung ver¬ 
spricht. 

(mm) 


The Bards Tale 

Hersteller: Electronic Arts 
Vertrieb: Fachhandel 
Steuerung: Tastatur 
Preis: ca. 69,- DM 

CPC 464 Kl CPC 664 Kl CPC 6128 Kl 


Des Barden Bestimmung., 


rationstruppen programmiert. Eine 
Rückeroberung dürfte einige schwieri¬ 
ge Probleme aufwerfen. Was tut die 
Föderation in einem solchen Notfall? 
Sie schickt Ihren besten Mann. Nun 
können Sie sich sicher vorstellen, wer 
diesen Job übernehmen soll, ja, ganz 
recht, niemand anders als Sie haben die 
ehrenvolle Aufgabe, die Galaxis aus 
den Händen der blutrünstigen Piraten 
zu befreien. 

Das einzige Hilfsmittel bei dieser Auf¬ 
gabe ist ein ultramoderner Cybernoid- 
Fighter, mit dem Sie in den Einsatz ge¬ 
schickt werden. Dieser Fighter ist zwar 
nur mit einem kleinen Laser ausgestat¬ 
tet, innerhalb der von den Piraten be¬ 
setzten Depots können Sie allerdings 
das eine oder andere Tuning-Kit fin¬ 
den, das im Handumdrehen eine Ein- 
mann-Festung aus Ihrem Cybemoid- 
Fighter macht. So können Sie unter an¬ 
derem eine Extrawaffe bekommen, 
die, einer Abbruchkugel nicht unähn¬ 
lich, um Ihr Schiff kreist und so ziem¬ 
lich alles, was in den Wirkungskreis 
dieser Kugel gerät, in handliche Parti¬ 
kel zerlegt. Zum anderen können Sie 
auch eine weitere Laserstation an Ihr 
Schiff andocken. So ausgerüstet, kön¬ 
nen Sie dann gleichzeitig nach vorn 
und hinten Ihren Feuerzauber entfa¬ 
chen. Doch selbst mit all diesen Extra¬ 
waffen ist es manchmal nicht einfach, 
das eigene Schiff inmitten der angrei¬ 
fenden Piraten zu lokalisieren. Nur äu¬ 
ßerst schnelle und präzise Joystickope¬ 
rationen können Sie in solchen Situa¬ 
tionen retten. 

Zu allem Überfluß haben Sie auch nur 
eine bestimmte Zeitspanne, in der Sie 
versuchen können, den Piraten ihre 
Beute zu entreißen. Gelingt Ihnen dies, 
werden Sie mit einem zusätzlichen 
Schiff belohnt. Und weiter geht es mit 
dem nächsten piraten-verseuchten De¬ 
pot. Gelegentlich werden Sic auf grüne 


Barrieren stoßen, in denen kleine Ro¬ 
boter auf und ab patrouillieren. Sie 
müssen diese Barrieren mit geschick¬ 
ten Joystickbewegungen durchqueren, 
ohne die Roboter zu berühren. Also, 
seien Sie auf der Hut. 

Resümee 

Ein Shoot’em up mit Geschicklich- 
keitseinlagen, die selbst erfahrene Joy¬ 
stickartisten ins Schwitzen bringen 
können, das war die einhellige Mei¬ 
nung der Redaktion. Es ist allerdings 
erfreulich, was die Programmierer 
diesmal aus dem CPC wieder heraus¬ 
geholt haben. 

SpiafadM Uedienungs- Doku- Graik Sound Preis/ 

Ireundlkhkeil menlalion Leislung 



Aus ferner Vergangenheit dringt die 
Geschichte der verfluchten Stadt Skara 
Brae an unsere Ohren. Getragen durch 
das Spiel des Barden künden die Verse 
die grausigen Taten des Magiers Man- 
gar, der die einst friedliche Stadt unter 
seine gnadenlose Herrschaft zwang. 
Seither ist Skara Brae verlassen; un¬ 
heimliche Gestalten schleichen zu jeder 
Tageszeit durch die Straßen und Gas¬ 
sen, immer auf der Suche nach armen 
Seelen, die sie verderben und vernich¬ 
ten können. Einzig und allein die Gilde 
wurde bisher von den Untieren ver¬ 
schont. 

Hier treffen sie sich, all die jungen un¬ 
schuldigen Abenteurer. Voller Taten¬ 
drang glauben sie, sich einfach so mit 
Mangars Monstern anlegen zu können 
und daß die Befreiung Skara Braes 
nicht mehr als ein kleiner Handstreich 
sei... 

Wie sehr sich die jungen Barden, Krie¬ 
ger, Söldner und Magier hier irren, 
werden sie früher feststellen als ihnen 
lieb ist. 


Cybernoid stellt sich mit einer sehr an¬ 
sehnlichen Grafik, gelungener Anima¬ 
tion und sehr präziser Steuerung dar. 


Sie küßten und sie schlugen ihn 

Dieser Spruch trifft auf Bards Tale wie 
auf kein weiteres Rollenspiel zu. Wenn 


Monster und Untiere 
jeder Fagon begeg¬ 
nen dem Spieler im 
Verlaufe seiner 
Abenteuer nur zu oft. 
Der einzige Weg, an 
Erfahrungspunkte zu 
kommen ist der 
Kampf mit diesen 
Wesen. 



SHoro Brae 
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Schaffen Sie es, eine 
Party in eine völlige 
Katastrophe zu steu¬ 
ern? Haben Sie Spaß 
daran, einmal so 
richtig über die 
Strenge zu schlagen ? 
Dann dürfen Sie die¬ 
ses Spiel nicht ver¬ 
passen. 


auch die Anzahl deijenigen, die das 
Programm küssen würden, überwiegt, 
gibt es tatsächlich einige Spieler, die 
Bards Tale völlig verunglückt finden. 
Das Spiel nimmt in mehr als einer Hin¬ 
sicht unter den Computer-gestützten 
Rollenspielen eine Sonderstellung ein. 
So gut wie jede Version des Spieles, sei 
es nun C-64 oder CPC, wird einen neu¬ 
en Spieler so recht begeistern. Die ein¬ 
zelnen Untiere, mit denen man es im 
Laufe des Spiels zu tun bekommt, wer¬ 
den in einem speziellen Fenster darge¬ 
stellt. Von dort aus grinsen den Spieler 
dann Orcs, Nomaden, Skelette, Untote 
und andere Monster an. Die Grafiken 
sind auch noch animiert; so läßt ein bö¬ 
ser Zauberer beispielsweise eine kleine 
magische Kugel über seiner Hand krei¬ 
sen. Solcherlei Details findet der Spie¬ 
ler allenthalben in diesem Spiel, ein- 
Umstand, der die lange anhaltende Mo¬ 
tivation erklärt. 

Ein Punkt im Spielgeschehen, bei dem 
viele Rollenspieler das Gesicht verzie¬ 
hen werden, sind die Aktionen, die un¬ 
ter den Spielercharakteren möglich 
sind. Bards Tale ermöglicht dem Spie¬ 
ler, mit insgesamt sechs verschiedenen 
Abenteurern auf Erkundung zu gehen. 

SpwfadMi Bedienung- Doku- G'alik Sound Preis/ 

freundlichkeil mentoion Leistung 
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Diese Charaktere gehören natürlich 
unterschiedlichen Rassen und Charak¬ 
terklassen an. Es kann passieren, daß 
ein Zwerg eine Waffe findet, die er gar 
nicht gebrauchen kann, ein anderes 
Mitglied der Party (Abenteurer-Grup¬ 
pe) würde diesen Gegenstand dringenst 


benötigen... Eine unmittelbare Über¬ 
gabe ist nicht möglich, es muß getrickst 
werden, und das kostet entweder Geld 
oder Lebenspunkte. 

Fazit 

Ein Rollenspiel, das dem Genre neue 
Dimensionen eröffnete. Die Art und 
Weise, in der Grafik bei Bards Tale in 
das Spielgeschehen eingebunden wur¬ 
de, kann mit Fug und Recht als rich¬ 
tungsweisend bezeichnet werden. Das 
Spiel selbst hält, was von einem ver¬ 
nünftigem Rollenspiel erwartet wird. 

(hs) 


How to be 
a complete Bastard 

Hersteller: Virgin games Ltd. 

Vertrieb: Fachhandel 
Steuerung: Joystick/Tastatur 
Monitor: Farbe/Grün 
Preis: ca. 32,— DM 

CPC 464 IX! CPC 664 Kl CPC 6128 B 

Keine Party ohne Pannen 

Eine Party völlig zu “verhunzen“, das 
ist das Ziel, das Sie sich gesetzt haben. 
Sie sind auf eine Party eingeladen, die 
von 16 Personen besucht wird. Da es 
auf einer Party nicht an Action fehlen 
darf, übernehmen Sie den Part, Ver¬ 
wirrung zu stiften. Wenn Sie alle Besu¬ 
cher vergrault haben und das Haus wie 
ein Schlachtfeld aussieht, dann haben 
Sie mal wieder richtig Spaß gehabt. 
Alle Utensilien, die Sie für Ihre Manö¬ 
ver brauchen, können Sie in dem be¬ 
treffenden Haus finden. Jedoch befin¬ 
den Sie sich auf einem recht schmalen 
Grad, was Ihre Ideen zur Störung der 
Party betrifft. 


Wenn Ihre Handlungen vom Rechner 
als selbstzerstörerisch oder psychopa¬ 
thisch eingestuft werden, müssen Sie 
sich darauf gefaßt machen, von ande¬ 
ren für eine gewisse Zeit eingesperrt zu 
werden. Natürlich gibt es jede Menge 
Möglichkeiten, die Gäste zu vergrau¬ 
len. Ob Sie nun Abführmittel in die 
Bowle einbringen oder andere Besu¬ 
cher bekleckern, es gibt der Möglich¬ 
keiten viele. Mit manchen Ihrer Aktio¬ 
nen können Sie Gäste ein für allemal 
vertreiben, andere Scherze vergraulen 
sie nur für einen begrenzten Zeitraum. 
Natürlich sind Ihrem Einfallsreichtum 
gewisse Grenzen gesetzt, da Sie nur die 
Gegenstände benutzen können, die Sie 
in dem Haus finden. 

Werden Sie ein Bastard 


Haben Sie mit dem Spiel begonnen, 
können Sie sofort mit Ihren Scherzen 
beginnen. In der Garderobe hängen ei¬ 
nige Jacken und Mäntel, die Sie einmal 
genau durchsuchen sollten. So man¬ 
cher nützliche Gegenstand läßt sich 
hier finden. Ein weiterer, wichtiger 
Ort ist die Küche. Im Herd findet sich 
eine unerschöpfliche Menge Curry pul- 
ver, von dem man sagt, daß es starke 
Gasentwicklungen verursachen kann. 
Ihren momentanen Gasdruck können 
Sie mit Hilfe Ihres Fartometers ermit¬ 
teln, das an der rechten, unteren Ecke 
zu finden ist. Ein probates Mittel ist na¬ 
türlich, die Gäste mit Hilfe dieser Ge¬ 
rüche zu vergraulen. Allerdings müs¬ 
sen Sie schon zu weiteren Mitteln grei¬ 
fen, wenn Sie alle Leute rausekeln 
wollen. 

Am rechten Bildrand ist das sogenann¬ 
te Smellometer zu finden, das über Ih¬ 
ren momentanen Körpergeruch Auf¬ 
schluß gibt. Je strenger dieser Geruch 
ist, desto bessere Chancen haben Sie, 
einen weiteren Gast zu vertreiben. Um 
Ihren Körpergeruch möglichst intensiv 
zu gestalten, sollten Sie versuchen, al¬ 
les erreichbare zu essen und möglichst 
mit Curry anzureichem. Sobald sich 
auf diese Weise das Fartometer gehö¬ 
rig aufgeladen hat und Sie das gasför¬ 
mige Stoffwechselendprodukt in die 
Umgebung entlassen, werden einer¬ 
seits Gäste flüchten und wird auf der 
anderen Seite Ihr Smellometer einen 
brauchbaren Wert anzeigen. Von gro¬ 
ßer Bedeutung ist auch Ihr Alkometer, 
das anzeigt, wie betrunken Sie zur Zeit 
sind. Manche Scherze können Sie näm¬ 
lich nur realisieren, wenn Sie volltrun¬ 
ken sind, andere hingegen nur im nüch¬ 
ternen Zustand. Zur Ausnüchterung 
steht in dem Haus eine Kanne mit 
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Der unsterbliche 
Charlie Chaplin er¬ 
lebt nun eine Aufer¬ 
stehung, Jahre nach 
seinem Tod. US 
Gold präsentiert den 
unsterblichen Star in 
seinen letzten Fil¬ 
men. Das Besondere 
daran, Sie sind der 
Regisseur. 


schwarzem Kaffee, die ebenso uner¬ 
schöpflich wie die Curry Dose ist. 

Eine Besonderheit dieses Spieles ist der 
Bildschirmaufbau. Der momentane Ort 
der Handlung, also das betreffende 
Zimmer, ist einmal in einer seitlichen 
Ansicht zu sehen. Darunter sehen Sie 
noch einmal den gleichen Raum, aller¬ 
dings aus einer anderen Perspektive. 
Der gleiche Raum kann nämlich im un¬ 
teren Screen in 90 Grad Schritten ge¬ 
dreht werden, so daß Sie auch hinter 
die Möbel sehen können. Nur auf diese 
Weise können Sie sich sämtliche Räu¬ 
me erschließen, da manche Türen nur 
in einer bestimmten Perspektive zu se¬ 
hen sind. Anfangs ist dieser geteilte 
Screen doch etwas verwirrend, nach 
kurzer Eingewöhnung stellt er jedoch 
eine wesentliche Hilfe zum Entdecken 
von Gegenständen und Personen dar. 

Resümee 

Ein Arcaden-Adventure ganz besonde¬ 
rer Art, das wahre Lachstürme auslö- 
sen kann. Eine gute Spielidee, kombi¬ 
niert mit einer guten Grafik und akzep¬ 
tablen Sound machen “ How to be a 
complete Bastard “ zu einem unvergeß¬ 
lichen Spielerlebnis. Auch die Steue¬ 
rung Ihres kleinen “ Bastards“ ist sehr 
präzise ausgefallen. 

Scw*a»> Bedamjogs- Doku- Grafik Sound Pmsl 

freimdUcnketi moniatioti Leistung 



Alles zusammen ein Spiel, daß Ihnen 
sicherlich viele Stunden hervorragen¬ 
der Unterhaltung verschaffen kann. Da 
hier auch ein relativ neues Spielprinzip 


zum Einsatz kommt, sollten Sie “ How 
to be a comlete Bastard “ auf keinen 
Fall versäumen. Viel Spaß! 

(mm) 


Charlie Chaplin 

Hersteller: US Gold 
Vertrieb: Fachhandel 
Steuerung: Tastatur/Joystick 
Preis: ca. 80,- DM 

CPC 464 1X1 CPC 664 IX CPC 6128 X 

Eine Legende 
als Computerspiel! 

Wer erinnert sich nicht an ihn, den le¬ 
gendären Stummfilmstar Charlie Cha¬ 
plin. Mit Filmen wie “Moderne Zei¬ 
ten“, “Goldrausch“ und “Der große 
Diktator“ spielte er sich die Herzen sei¬ 
nes Publikums. Der kleine Mann mit 
den übergroßen Schuhen, der Melone 
und dem Rohrstöckchen wurde zu ei¬ 
nem Symbol, das bis in heutige Zeiten 
fortbesteht. 

Als Charlie Chaplin, das Computer¬ 
spiel, in der Redaktion ankam, waren 
die Reaktionen unterschiedlich. Sie 
reichten vom laut heraus geschmetter¬ 
ten ’Sakrileg’ bis zum erleichterten ’Na 
endlich’. 

Einige Zeit später wird man sich einig, 
Charlie Chaplin wird sich wohl nicht in 
seinem Grabe umdrehen müssen. 

Ton ab — Kamera läuft 

Der Spieler findet sich unversehens in 
der Rolle eines Filmschaffenden wie¬ 
der, dessen Aufgabe es ist, einen Film 
mit Charlie Chaplin zu drehen. 

So in die Rolle eines Regisseurs gera¬ 
ten, müssen Sie zuerst einmal das 
Drehbuch in Augenschein nehmen. 


Danach müssen die einzelnen Szenen 
gefilmt werden. 

Während der Dreharbeiten steuern Sie 
Charlie, und natürlich müssen Sie sich 
bemühen, die Szenen so lustig wie 
möglich zu gestalten. Sind alle Szenen 
abgedreht, geht Ihre Aufgabe weiter. 
Sie müssen nun an den Schneidetisch 
und aus den zusammengedrehten Sze¬ 
nen einen kompletten Film machen. 
Hierauf folgt die Uraufführung Ihres 
Films. Die Reaktionen des Publikums 
können Sie anhand der nachfolgend er¬ 
scheinenden Ausgabe von ’Variety’ 
nachlesen. Die dort zu findenden Kriti¬ 
ken spiegeln auch die Erlöse Ihres Fil¬ 
mes und von diesen wiederum hängt es 
ab, ob Sie noch einen Film drehen 
können. 

Fazit 

Die größten Sorgen, die man sich um 
das lange angekündigte Charlie Cha¬ 
plin machte, waren, wie wird das Me¬ 
dium Computerspiel einer Legende 
wie Chaplin gerecht? 
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Alles in allem kann man sagen, die Ma¬ 
cher dieses Spiels wurden Charlie ge¬ 
recht, und zu keinem Moment wirkt 
das Spiel überzogen. Und nach wie vor 
bleibt Charlie Chaplin auch in seinem 
Computerspiel eben jener kleine Mann 
mit den traurigen Augen, den wir von 
der Leinwand her kennen und lieben! 

(hs) 


Sailing 

Hersteller: Activision 
Vertrieb: Fachhandel 
Monitor: Farbe/Grün 
Steuerung: Joystick/Tastatur 
Preis: ca. 49,— DM 

CPC 464 X CPC 664 X CPC 6128 X 

Packende Sportsimulationen vermoch¬ 
ten schon immer die Besitzer von Com¬ 
putern zu begeistern. Sie haben nun die 
Chance, an internationalen Regatten 
teilzunehmen, und dabei gegen die be¬ 
sten Teams der Welt zu segeln. Doch 
bevor Sie das erste Mal in See stechen, 
gilt es, das eigene Boot zu entwerfen. 
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DasUS- 
Onginal 
in Deutsch 


but 




ic Adventure Continues 


SONDERAKTION CPC SPIELE 
der internationalen Superklasse 



IjiiJlbJ rUwr 


SPACE SHUTTLE 


grOAMrWDMOHt 


«.U'itkAß XWtUtH“ 


W 


Nur bei DMV können treue Leser die Top-Spielehits der vergangenen Jahre jetzt zu 

echten Knüllerpreisen 

erwerben. Es lohnt sich, sofort zuzugreifen! ^ 

^ Begrenzte Stückzahl - nur solange der Vorrat reicht! 

' Jede Kassette / Jede 3“ Diskette 


15,- DM* 


DM 


Lauffähig auf allen CPC-Computern von Schneider bzw. Amstrad 



CPC Spiele Sonderaktion 


Lieferbar als Kassette 


Lieferbar als 3“ Diskette 


Nr.182 

Space Shuttle 

(Activision) 

Nr.181 

Ghostbusters 

(Activision) 

Nr.163 

Boxing 

(Activision) 

Nr. 183 

Space Shuttle 

(Activision) 

Nr.165 

Ballblazer 

(Activision) 

Nr. 164 

Boxing 

(Activision) 

Nr.175 

Wintersports 

(Electric Dreams) 

Nr.184 

Little Computer People 

(Activision) 

Nr.179 

Spindizzy 

(Electric Dreams) 

Nr.166 

Ballblazer 

(Activision) 

Nr.167 

Hacker II 

(Activision) 

Nr.176 

Wintersports 

(Electric Dreams) 

Nr.177 

Tempest 

(Electric Dreams) 

Nr.180 

Spindizzy 

(Electric Dreams) 

Nr.169 

Star Raiders II 

(Electric Dreams) 

Nr.168 

Hacker II 

(Activision) 

Nr.171 

Big Trouble in Little China (Electric Dreams) 

Nr.178 

Tempest 

(Electric Dreams) 

Nr.173 

Sailing 

(Activision) 

Nr.170 

Star Raiders II 

(Electric Dreams) 




Nr.172 

Big Trouble in Little China 

(Electric Dreams) 




Nr.174 

Sailing 

(Activision) 


* Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 3,- 

DM bzw. 



für das Ausland 5,- DM Porto und Verpackung. 




DMV Verlag 


Bitte verwenden Sie für Ihre Bestellung unsere Bestellkarte 

CPC Bestellservice ■ Postfach 250 ■ 3440 Eschwege 



















4 GAME COMPILATION FOR USf ON 
AMSTRAD CPC COMPUTER DISK 


Für SCHHHDERCPC DISK 


AMSTRAD CPC 


FREE! 

Acrton dcmo o( 
KoramTshlt 
gamctryzor' 
include<l tn tWs 
pack. 


Amstrad 


THEWORLDSGREATEST 






Amstrad 


Bitte verwenden Sie für Ihre Bestellung unsere Bestellkarte! 


35,- DM 
49,- DM 

35,- DM 
49,- DM 

44,- DM 
59,- DM 

35,- DM 
65,- DM 


35,- DM 

35,- DM 
49,- DM 

49,- DM 
59,- DM 


35,- DM 
49,- DM 


29,- DM 
49,- DM 

35,- DM 
49,- DM 

35,- DM 
49,- DM 

32,- DM 
49,- DM 

35,- DM 
49,- DM 

35,- DM 
49,- DM 


The world’s greatest 

Cass. Best.-Nr.112 
3" Disk. Best.-Nr.113 
4 Computer Hits 
Cass. Best.-Nr.114 
3" Disk. Best.-Nr.115 


10 Hit Games 

Cass. Best.-Nr.110 
3“ Disk. Best.-Nr.111 


Solid Gold 

Cass. Best.-Nr.l08 
3" Disk. Best.-Nr.109 


Cruiser Joystick 

Die Joysticksensation mit 
Mircoschaltern und ver¬ 
stellbarem Hebelweg. 
Cleverund smart 
Cass. Best.-Nr.1l6 
3" Disk. Best.-Nr.1l7 
Driller 

Cass. Best.-Nr.118 
3“ Disk. Best.-Nr.1l9 


Werewolves 

Cass. Best.-Nr. 135 38,- DM 

3“ Disk. Best.-Nr. 136 49,- DM 


California Games 

Cass. Best.-Nr. 137 35,- DM 

3” Disk. Best.-Nr. 138 49,- DM 


Buggy Boy 



Cass. Best.-Nr. 139 

35,- 

DM 

3" Disk. Best.-Nr. 140 

49,- 

DM 

Combat School 



Cass. Best.-Nr. 141 

32,- 

DM 

3“ Disk. Best.-Nr. 142 

49,- 

DM 


International Karate plus 

Cass. Best.-Nr. 143 35,- DM 

3“ Disk. Best.-Nr. 144 49,- DM 


Champion Ship Sprint 

Cass. Best.-Nr. 149 35,- DM 

3“ Disk. Best.-Nr. 150 49,- DM 


Mah Jong 

Cass. Best.-Nr. 155 
3" Disk. Best.-Nr. 156 


Dan Dare II 
Mekon’s Revenge 

Cass. Best.-Nr. 159 
3“ Disk. Best.-Nr. 160 

Bedlam 

Cass. Best.-Nr. 1101 
3” Disk. Best.-Nr 1102 


Cybernoid 

Cass. Best.-Nr. 1103 
3“ Disk. Best.-Nr. 1104 

Druid 2 

Cass. Best.-Nr. 1105 
3“ Disk. Best.-Nr. 1106 


Get Dexter II 

Cass. Best.-Nr. 1107 
3" Disk. Best.-Nr. 1108 


Leaderboard 

Cass. Best.-Nr. 1109 
3" Disk. Best.-Nr. 1110 


Bubble Bobble 

Cass. Best.-Nr. 131 
3" Disk. Best.-Nr. 132 


35,- DM 
49,- DM 


Unabhängig von der Anzahl der bestell¬ 
ten Programme berechnen wir für das 
Inland 3,- DM bzw. für das Ausland 
5,- DM Porto und Verpackung. 


35,- DM 
49,- DM 

35,- DM 
49,- DM 

35,- DM 
44,- DM 

35,- DM 
49,- DM 

38,- DM 
54,- DM 

49,- DM 


Rampage 

Cass. Best.-Nr. 1111 
3“ Disk. Best.-Nr. 1112 


Sidearms 

Cass. Best.-Nr. 1113 
3" Disk. Best.-Nr. 1114 


Tetris 

Cass. Best.-Nr. 1115 
3“ Disk. Best.-Nr. 1116 


Blood Valley 

Cass. Best.-Nr. 1117 
3“ Disk. Best.-Nr. 1118 


Beyond 

Cass. Best.-Nr. 1120 
3“ Disk. Best.-Nr.1121 


Zynaps 

3" Disk. Best.-Nr. 1122 


GAUNTLET 


AGE 0F ACES 


LEAIfER BOARD 


WINTER GAMES 


-l-rr jr /ri Tp* ii /ni 


KNUT; 


kor use on AMSTRAD cassette 




DMV Verlag • CPC Bestellservice ■ Postfach 250 ■ 3440 Eschwege 
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I am Sailing... 


Für eine Landratte ist es natürlich nicht 
einfach, ein Boot zu entwerfen, das 
Aussichten auf einen Sieg in der Regat¬ 
ta hat. Viele Faktoren gilt es zu berück¬ 
sichtigen, bis das Boot den schnittigen 
und trotzdem wendigen Charakter be¬ 
sitzt, der nötig ist, um der Konkurrenz 
immer eine Nasenlänge voraus zu sein. 
Bei der Konstruktion des Bootes gehen 
Sie zunächst von einer Grundform aus. 
Diese zu optimieren, stellt Ihre erste 
Aufgabe dar. So können Sie die Ge¬ 
samtlänge des Bootes, die Länge an der 
Wasserlinie und die Länge des Mastes 
verändern. Letzteres bewirkt gleich¬ 
zeitig auch eine Vergrößerung der Se¬ 
gelfläche, so daß Ihr Boot schneller, 
aber auch weniger wendig ist. Des wei¬ 
teren haben Sie weitreichende Mög¬ 
lichkeiten, die Form des Kiels zu ver¬ 
ändern. Diese Form ist für das aquady- 
namische Verhalten entscheidend. Ein 
Kiel mit zwei Stabilisierungsflossen 
bewirkt eine solide Lage, birgt aber 
den Nachteil der Schwerfälligkeit in 
sich. Auf der anderen Seite ist ein Kiel 
ohne Stabilisatoren zwar wendig, die 
Kippsicherheit des Bootes ist aber deut¬ 
lich geringer. 

Nachdem Sie Ihr Boot fertig gestellt 
haben, können Sie das Niveau, auf dem 
das Rennen statt findet, einstellen. Auf 
diese Art und Weise können Sie sich 
auch einige Anregungen für Ihr näch¬ 
stes Boot holen, da die Konkurrenz 
ebenfalls gute Konstrukteure beschäftigt. 

Ihre Gegner sind in der Rangliste im¬ 
mer in der Nähe Ihres eigenen Platzes 
zu finden. Gegen einen dieser Konkur¬ 
renten treten Sie nun an. Dabei ist zu 
beachten, daß Sie den mit Bojen mar¬ 
kierten Kurs nicht verlassen dürfen, da 
Sie sonst disqualifiziert werden. Wäh¬ 
rend des Rennens können Sie auf ein 
komfortables Instrumentarium zurück- 


Segelsport auf Ihrem 
CPC — ein neuer 
Aspekt in dem Um¬ 
feld der Simulatio¬ 
nen. Hier können Sie 
eine Regatta segeln, 
ohne naß zu werden. 



greifen. So verfügen Sie über ein Ra¬ 
dargerät, mit dem Sie Ihren Kurs kon¬ 
trollieren können und einen Windmes¬ 
ser, der den aktuellen Windeinfalls¬ 
winkel anzeigt. 

Haben Sie das Glück, daß der Wind 
von Achtem weht, können Sie einen 
Spinnaker hissen. Dieser wird Ihnen 
dann zu der benötigten Geschwindig¬ 
keit verhelfen. Doch Vorsicht! Wenn 
Sie bei starkem Wind den Spinnaker 
hissen, kann es geschehen, daß Sie Ihr 
Boot untersegeln, d.h., der Bug gerät 
unter Wasser und Sie können die Tief- 
taucheigenschaften Ihres Bootes einer 
genauen Prüfung unterziehen... 

Ziel ist natürlich, schneller als die Kon¬ 
kurrenz zu fahren und das Rennen zu 
gewinnen. Gelingt dies, werden Sie in 
der Liga-Tabelle eine Position hochge¬ 
setzt. Nach fünf Segeltagen findet übri¬ 
gens eine Verschnaufpause von einer 
Woche statt, in der Sie Ihre Yacht neu 
takeln können. Mast und Schotbruch! 

Resümee 

Mit Sailing gelang es Activision, eine 
Simulation vorzulegen, die nicht nur 
durch Realismus, sondern auch durch 


hohe Spielmotivation besticht. Viele 
Features werden geboten, die alle ei¬ 
nen mehr oder minder großen Einfluß 
auf das Renngeschehen haben. 
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Auch die grafische Realisation hat uns 
sehr gut gefallen, da es gelang, viel von 
der Segelsportatmosphäre einzufangen 
und in das Spiel umzusetzen. Sailing ist 
ein weiteres Indiz dafür, daß Simula¬ 
tionen nicht unbedingt vor einem krie¬ 
gerischen Hintergrund ablaufen müs¬ 
sen, um interessant zu sein. So bietet 
Sailing nicht nur viele Stunden Spiel¬ 
spaß, man kann sich auch einiges Wis¬ 
sen über Schiffe und das Segeln aneig¬ 
nen. Wir möchten Ihnen Sailing daher 
gerne empfehlen. 

(mm) 



CPS Computertechnik GmbH 
Marienstraße 16 • 3300 Braunschweig 
Telefax: 105311 796461 


Ab sofort sind wir 



AMSTRAD 


System-Fachhändler 


Außerdem unsere Angebotspaiette: 

Commodore. Atari, EPSON, Star 
NEC, OKI, Software u. Literatur 
von Markt+Technik 




Anwendungsprogramme 

für 


CPC oder JOYCE 



ADRESCOMP - praktische Adressendatei 

58,- 

DM 

COMFORM - Überweisungsformuiardruck 

48,- 

DM 

DATENREM - universelle Dateiverwaltung 

68,- 

DM 

ETATGRAF - Haushaltsbuch mit Grafik 

58,- 

DM 

FAKTUREM - Fakturierung mit Speicherung 

78,- 

DM 

FIBUPLAN - Finanzbuchführung 

148,- 

DM 

KALKUREM - Tabellenkalkulation mit Grafik 

78,- 

DM 

LAGDAT - praktische Lagerdatei 

68,- 

DM 

PROFIREM - Rechnungen, Lager- Kundendatei 

136,- 

DM 

TEXTKING - Textprogramm (nur für CPC) 

78,- 

DM 

VOKABI - universeller Vokabeltrainer 

58,- 

DM 

Versand p. Vorkasse (portofrei), Nachnahme (zzgl. 5 

DM) 


Fordern Sie jetzt unsere neue Info CJ3 an 



VAN DERZALM-SOFTWARE 


Elfriede van der Zalm, Software-Entwicklung & 

Vertrieb 


Schieferstätte, 2949 Wangerland 3, Tel. 044 61 

7 55 24 



70 PC 9’88 












































































Software-Preview—i 


Demnächst auf Ihrem Computer 

Wer aktionsreiche und anspruchsvolle Spiele mag, der kann sich freuen. Wie¬ 
der einmal sind einige ältere, trotzdem ausgezeichnete Programme neu aufge¬ 
legt worden. Der passionierte Computerspieler hat also Gelegenheit, seine 
Sammlung für wenig Geld zu ergänzen. 


Mercenary Kompendium 
Flucht aus Tharg & Die zweite Stadt 



Mercenary ist ein Such- und Erkun¬ 
dungsspiel, das den Spieler auf die 
Oberfläche des Planeten Tharg ver¬ 
setzt. Das eigene Raumschiff wurde 
durch eine Notlandung zerstört. Die 
Aufgabe des Spielers ist nun, durch die 
in detaillierter Vectorgrafik gestaltete 
Welt zu streifen und dabei nach einer 
Möglichkeit zu suchen, den Planeten 
wieder verlassen zu können. Dabei 
muß der Spieler sowohl mit einem 
Gleiter die Oberfläche von Tharg un¬ 
tersuchen als auch in Gebäude und 
Hangars eindringen und dort nach 
Brauchbarem Ausschau halten. Neben 
Mercenary enthält die Kompilation 
auch die “Zweite Stadt“. Dabei handelt 
es sich um ein erweitertes Szenario das 
der Spieler mit Mercenary nachladen 
und benutzen kann. 


Hopping Mlad 



Kugeln, Kugeln und kein Ende. Elite 
Systems aus England legt einen neuen 
Vertreter der Murmelspiele vor. Dies¬ 
mal geht es darum, eine Kette von Bäl¬ 
len, die durch die Bank empfindlich 
wie Seifenblasen sind, durch diverse 
Szenarien zu lenken. Dabei muß der 
Spieler auf stachelige Büsche, tiefflie¬ 
gende Vögel und umherspringende To¬ 
tenköpfe achten und ausweichen. Ge¬ 
lingt das nicht, bleibt nicht mehr viel 
vom Ball übrig. 

Lucasfilm Prestige Collection 

Vier inzwischen schon legendär ge¬ 
wordene Spiele für den CPC werden 
hier in einer preiswerten Sammlung 
neu aufgelegt. 

Lucasfilm: The Eidolon 



gehört haben, soll es auf Koronis aber 
noch mehr zu holen geben. Irgendwo 
dort draußen befinden sich die Relikte 
einer unglaublich mächtigen unterge¬ 
gangenen Rasse und vielleicht sind Sie 
es, der sie entdeckt. 


Rescuc on Fractalus 



Nach einem wilden Kampf über der 
Oberfläche von Fraktalus sind einige 
Piloten abgeschossen worden. Die 
Kerle warten nun darauf, gerettet zu 
werden. Ihr Job ist es, über die zerklüf¬ 
tete Berglandschaft zu fliegen und die 
havarierten Piloten zu retten. Auch 
hier überzeugt wieder der Einsatz aus¬ 
gesprochen sehenswerter Fraktalgra- 
fiken. 


Bionic Commando 



Brandheiß aus den Spielhallen, rein in 
den CPC. Es gilt mal wieder, eine in¬ 
tergalaktische Auseinandersetzung 
durchzustehen. Die finsteren Zargons 
müssen besiegt werden. Das Bionic 
Commando, dessen Steuerung Sie na¬ 
türlich übernehmen, ist mit einigen me¬ 
chanischen Extrakörperteilen ausge¬ 
stattet. Derart bewaffnet muß sich der 
Spieler durch allerlei Fährnisse 
kämpfen. 



Das Jules Verne-Abenteuerspiel. Mit 
einer geheimnisvollen Maschine gelan¬ 
gen Sie in eine unheimliche Dimen¬ 
sion. In ausgedehnten Höhlensyste¬ 
men, die übrigens in atemberaubender 
Fraktalgrafik dargestellt werden, leben 
ganze Scharen von Fabelwesen. 


Lucasfilm: Koronis Rift 

Koronis, das ist ein legendärer Raum¬ 
schifffriedhof am äußersten Ende der 
Galaxis. Nach den Gerüchten, die Sie 


Ball Blazer 



Das schnellste Spiel dieseits des Arctu- 
rus. Am Steuer eines Ball Blazers, so¬ 
zusagen ein Schläger in dem man Platz 
nehmen kann und der sich wie ein Auto 
steuern läßt, treten Sie gegen einen 
gleichermaßen ausgerüsteten Gegner 
an. Ziel des Spieles ist, einen schwe¬ 
benden Ball in das Tor des Gegners zu 
befördern, natürlich mit Ihrem Ball¬ 
blazer. 

(Hs) 


9’88 PC 71 






















r~ Abenteuer 


GAMERS MESSAGE 


Auch in dieser Gamers Message wol¬ 
len wir einige interessante Pokes und 
Cheats behandeln, die Ihnen bei der 
Lösung des einen oder anderen Pro¬ 
blems hilfreich sein könnten. In dieser 
Ausgabe gehen wir unter anderem auf 
Arkanoid, They stole a million, Hybrid 
und Saboteur II ein. Also, für alle, die 
jetzt noch nicht in den Ferien sind, hei¬ 
ße Tips und Tricks zum fröhlichen 
Computern. 

Arkanoid II 

Einen Cheat Mode zu Arkanoid hat 
Rene Witkenkamp herausgefunden: 
Zunächst den Computer einschalten 
und Arkanoid II einladen. Jetzt müssen 
gleichzeitig die Tasten “TAITO“ ge¬ 


drückt werden. Jetzt das Spiel starten 
und mindestens zweimal ESCAPE be¬ 
tätigen. Rechts und links erscheinen 
jetzt Energiebarrieren, durch die man 
problemlos ins nächste Level gelangt. 
Also, ausprobieren und viel Spaß mit 
Arkanoid II! 

They stole a million 

Robin Putzer hat sich mit dem Spiel 
“They stole a million“ beschäftigt, und 
hat dabei einen interessanten Poke ge¬ 
funden, den wir Ihnen nicht vorenthal¬ 
ten wollen. Zum Eingeben des Pokes 
sollten Sie folgendermaßen vorgehen: 
Zuerst wird das Spiel in den Rechner 
eingeladen und die Funktion SPEI¬ 
CHERN angewählt. Der Anfangsstand 


wird nun unter Fall 5 gespeichert und 
dann ein Reset vorgenommen. Jetzt 
kann das untenstehende Listing einge¬ 
geben werden. Bei Bedarf können Sie 
speichern und anschließend starten; 
nun noch den gewünschten Betrag ein¬ 
geben. Wenn “Ready“ erscheint, star¬ 
ten Sie das Spiel erneut und wählen die 
Funktion “Laden Fall 5“. 


10 OPENOUT'd“: MEMORY &3FF:CL0SE0UT: 

L0AD"swag5-dat" 

20 INPUT U WIEVI£LE DOLLARS (BIS 
9999999)";d:d$=STR$(d) 

30 dl=VAL("&“+RIGHT$(d$>2)) :IF LEN 
(d$) <8 THEN 50ELSE d2=VAL(»&"+ 
LEFT$(RIGHT$(d$,4),2)):IF LEN 
(d$) <6 THEN 50 

40 d3=VAL(“&"+LEFT$(RIGHT$(d$,6), 

2)) : IF LEN(d$) < 8 THEN 50 ELSE 
d4=VAL(“&" +LEFT$(RIGHT$(d$,8), 2)) 


Karte zu Hybrid I 


i -r 


k v 




ir 


t 


L sh «1 


J L 






K II 
E: 


□ 

03 

1 





ft 5 


Legende 

A = Arms 

F = Fight Power 

E = Energie 

S<l-3) = Startpunkte 

K = Kasten (Zerstören!) 

B = Tretmine 

Z = Zeitbombe 

ES = Teil zum Mitnehmen 

□ = Hier müssen Teile eingesetzt werden 

^ = Teleporter 
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Karte zu Hybrid II 




B6 




XI R2 



50 POKE &45d,d4:POKE &45e,d3:P0KE 
&45f,d2:P0KE &460,dl:SAVE«swag 
5.dat“,b,&400,&2FF,0 

Hybrid I + n 

Das Spiel Hybrid I + II hat sich Sven 
Böttcher aus Baldham einmal genauer 
angesehen. Hier nun seine Anregungen 
zu Hybrid: 

Ziel des Spieles ist die Vernichtung al¬ 
ler vier Außerirdischen. Diese sind je¬ 
weils in einer kleinen Sequenz anzu¬ 
treffen, in die man über die diversen 
Teleporter gelangt. Die Teleporter sind 
auf der Karte jeweils mit einem Pfeil 
gekennzeichnet. Außerdem können Sie 
noch eine gehörige Anzahl der Ge¬ 
schütze beseitigen, dies ist jedoch nur 
mit der Spielfigur Roboter zu schaffen. 
Übrigens sollten Sie genau darauf ach¬ 
ten. daß sich alle Spielfiguren auf dem 
Pfeil befinden, ist dieser Zustand er¬ 
reicht, teleportieren die Spielfiguren 
automatisch. 


Hier noch einige Tips zum allgemeinen 

Spielverlauf: 

— Mit der Taste “T“ kann man Brain, 
die kleinste Spielfigur, innerhalb ei¬ 
nes Raumes teleportieren. Wenn Sie 
dabei allerdings auf einer oder zwei 
anderen Spielfiguren stehen, wer¬ 
den diese mit Brain teleportiert! 

— Den Außerirdischen können Sie nur 
besiegen, wenn Sie sich ganz nah 
vor ihn stellen, und ihn einmal in 
den geöffneten Mund treffen. 

— Lassen Sie am besten den Roboter 
die Kastanien aus dem Feuer holen. 
Er kann am besten den Weg frei¬ 
schießen. 

— Wenn eine Ihrer Spielfiguren zu häu¬ 
fig getroffen wird, kann es passieren, 
daß Sie die Kontrolle über den betref¬ 
fenden Charakter verlieren. Kein 
Grund zur Panik! Stellen Sie sich ein¬ 
fach mit einem ausreichend frischen 
Charakter auf den Ärmsten und 
drücken Sie die Taste “6“. Auf diese 


Weise können Sie Energie von einem 
zum anderen übertragen. 

Tempest 

Dietmar Ferlemann hat mit Hilfe von 
Discology einen Code für das Spiel 
Tempest gefunden. Wenn Sie den Code 
eingeben (funktioniert nur in der Disc- 
Version), können Sie in jedes Level ge¬ 
langen und dieses natürlich auch durch¬ 
spielen. Die Eingabe des Codes ge¬ 
schieht wie folgt: 

— Starten Sie das Programm wie ge¬ 
wohnt, indem Sie CP/M booten. 

— Wenn Sie im Titelbild sind, geben 
Sie einfach den Code ein. Er lautet: 
23/12/85-24/04/86 BY DAVID K PRIDMORE 

— Danach können Sie folgende Tasten 
benutzen: 

A = Vorheriges Level 
Q = Nächstes Level 
Z = Zapper (Leertaste ist auch 
möglich) 

X = Exit 
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Moonmist 

Das Infocom Adventure “Moonmist“ 
hat sich Bernd Schmidt aus Aachen 
gründlich vorgenommen. Dabei hat er 
einige interessante Entdeckungen ge¬ 
macht, die Ihnen vielleicht weiterhel¬ 
fen können. Hier nun einige Tips zur 
roten und zur grünen Variante: 

— Das Auge des Wyvern ist eine Tür¬ 
klingel! 

— In allen Schlafzimmern und in man¬ 
chen anderen Räumen, wie Sitting 
Room und Drawing Room, gibt es 
verborgene Hebel, mit deren Hilfe 
sich Geheimgänge öffnen lassen! 

— Im eigenen Schlafzimmer ist der 
Schalter neben dem Wall-Mirror 
der Öffner. 

— In Tamaras Schlafzimmer ist es der 
Bettpfosten. 

— Bei Lord Jack ist das Teleskop der 
Hebel. 

— In Vivians Raum öffnet die Statue 
den Geheimgang. 

— In der Küche befindet sich eine 
Lampe, die man in den Geheimgän¬ 
gen bei sich haben sollte. 

— Im Schlafzimmer zieht man sich 
um, wogegen man sich im Bad wa¬ 
schen sollte. 

— Bei der grünen Variante ist der 
Schatz in dem Inkwell im Office 
versteckt. 

— Die Beweise für das Verbrechen 
finden Sie in der Library, wenn Sie 
die Bookcases nach dem Lab Note¬ 
book durchsuchen. 

— Mit diesen Dingen gerüstet, bege¬ 
ben Sie sich in die Secret Passage, 
und warten bei “my entrance“ auf 
den Geist. 

— Wenn der Geist erscheint, sofort 
den Knopf an der Aerosol Device 
drücken, das Gespensterkostüm 
wegnehmen, und Dr. Wendish ver¬ 
haften. 

— In der roten Variante finden Sie im 
Schirmständer im Foyer einen 
Stock. Wenn Sie von diesem die 
Farbe abkratzen, ist darunter der 
Schatz versteckt, ein War Club. 


— Die Beweise in dieser Variante fin¬ 
det man, indem man durch das 
Schlüsselloch von Lord Jack 
schaut, danach das family crest 
wegnehmen, und den Tape Recor¬ 
der anstellen. 

— Nun in der Secret Passage auf den 
Geist warten. 

— Wenn er erscheint, müssen Sie 
nichts tun, sondern nur “ghost, hel¬ 
lo“ eingeben. Danach gehen Sie 
über die Geheimgänge zu Lord 
Jack’s Schlafzimmer und verhaften 
ihn dort. 


POKES, POKES, POKES, 

Der Schneider Fan Club aus Gelnhau¬ 
sen hat gleich einen ganzen Schwung 
Pokes aufgeschrieben. Zuerst jedoch 
eine Anleitung zum Eingeben der 
Pokes. 

Die Pokes werden immer vor dem 
Call-Befehl eingegeben, das bedeutet, 
daß der Loader “geMERGEd“ und die 
entsprechende Zeile editiert wird. Man 
kann auch versuchen, den Loader zu 
unterbrechen, um den POKE einzuset¬ 
zen. Besonders nützlich und meist un¬ 
verzichtbar ist ein sogenanntes Multi- 
face Two, mit dem man ohne größere 
Probleme die POKES direkt in das Pro¬ 
gramm eingeben kann. Wenn einmal 
ein Poke keine Wirkung zeigt, so kann 
es verschiedene Fehlerquellen geben. 
Ein CPC 464 POKE muß nicht unbe¬ 
dingt auch auf dem CPC 6128 funktio¬ 
nieren. Auch gibt es manchmal mehre¬ 
re Versionen des gleichen Program¬ 
mes, was natürlich zur Folge hat, daß 
hier der POKE manchmal nicht greift. 

Hier nun eine bunte Mischung von 
Pokes: 


- Alien: 

&2822,&80 

- Army Moves: 

&0B3E,0 

&0865,0 

- Atlantis: 

&181B,0 

- Batman: 

&1C90,0 

&34BB,0 

- Bomb Jack 2 

&18EA,0 
&1A58,X 

- Bruce Lee 

8c62FA,X 

- Copout 

&195B,0 

- Defend or 

Die 

&64e4,99 

&64E9>99 


- Lightforce 

&75A6,&3D 
&6285,X 
&760D,X 
&6652,0 
&79DA,0 

- Marble 

&831F, 0 

Madness 

- Nemesis 

&9D74,0 

- Nomad 

&223A,0 

- Rogue 

&2EC1,0 

- Trooper 

&1B51,0 
&1B22,0 
&265C,&3E 
&265D,&FF 
&265E,&32 
265F,&5B 
&2660,&17 
&2661,&00 

- Samantha 

&22ED,255 

Fox Strip- 

Poker 

&22EE,7 

- Dragons 

&25A7,&B7 

Lair 

&25A7,0 

- Dragons 

&7CC6,0 

Lair II 

&7C61,0 

&25F6,0 

- Jack the 

&200A,&C9 

Nipper 

&200A,0 

- Lightforce 
&621E,&3D 
&695A,0 
&778C,&3E 
&7799,0 
&778C,&3E 

- Space 

&0D74,0 

Harrier 

- Spellbound 

&1268,0 

&3185,0 

- Split Per¬ 

&E524,0 

sonalities 

&E525,0 

&E526,0 

&D072,X 

&C63F,0 

- The Apprentice 

&9DDD,0 
&9DDE,0 

- Thrust 

&715E,X 

&433B,&3E 

- Xevious 

&454,X 
&AF2C,&48 
&AF2D,&AF 


(mm) 
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Joyce Programmsammlungen 

Hochwertige Software zu Niedrigpreisen finden JOYCE-Besitzer im Rahmen einer 



Programmsammlung in der Angebotspalette des DMV Verlages. 

Jede Ausgabe aus dieser Reihe enthält eines oder zwei Programme, die aus verschiedenen 
Anwendungsgebieten kommen. Diese Serie erscheint in unregelmäßiger Reihenfolge und wird als kom¬ 
plettes Programmpaket mit 3"-Diskette und Bedienungsanleitung ausgeliefert. 


Joyce-Programmsammlung VOL. IV 


BildEditor 

Ein Programm zur Herstellung und 
punktgenauen Bearbeitung von hoch¬ 
auflösenden Grafiken und Bildern 
und deren Ausdruck auf dem JOYCE- 
D rucke r. 


Hinweis: Das Programm arbeite! nicht mit Peri¬ 
pheriegeräten oder Programmen, die den Ar¬ 
beitsspeicher unter CP/M einschränken. 




mmm 


Leistungsumfang 

Auf der mitgelieferten 3"- Diskette finden Sie alle zur Arbeit mit dem 
Bildeditor benötigten Programme und Dateien. Die Bedienungsanlei¬ 
tung beschreibt ausführlich die Erstellung einer Startdiskette. Für 
Turbo-PASCAL-Programmierer steht zusätzlich der Programmtext auf 
Diskette zu' Verfügung. 

Funktionen: 

- Die Grobbearbeitung ermöglicht die schnelle Änderung eines 
Blockgrafikzeichens (8x8 Bildschirmpunkte). 

- Die Feinbearbeitung erlaubt die punktweise Bearbeitung eines Bil¬ 
des mit mehreren komfortablen Optionen, wobei die Position des 
Zeichencursors in X/Y-Koordinaten am Bildschirm angezeigt wird. 

- Die Detailbearbeitung stellt Ihnen eine komfortable Lupe zur Ver¬ 
fügung, die auch eine Symmetrie- und Copy-Funktion enthält 


- In allen Bearbeitungsmodi können Invertier-, Lösch- und Zeichen¬ 
funktionen aufgerufen werden; bei der Grobbearbeitung ist es zu¬ 
dem möglich, Texte in das Bild zu bringen. 

- Das Dateimenü erlaubt das Laden und Speichern sowie das ’Hin- 
zu’-Laden (Überlagerung zweier Bilder) von Bildern. 

- Die Ftardcopy-Funktion stellt vier Ausdruckformate zur Verfügung: 
Neben der Originalgröße ist ein doppelt breiter, ein doppelt hoher 
sowie die Kombination der beiden Vergrößerungen möglich; zusätz¬ 
lich kann der Versatz vom linken Rand aus zeichenweise angewählt 
werden. 


VOL.4 für PCW 8256/8512 incl. 3“-Disk 
und Bedienungsanleitung 


59, - DM* 

uriverb. Preisempf 


H Der Character Designer 

Funktion: Komfortable Erstellung eigener Zeichensätze auf PCW 8256/8512 
nd deren Darstellung am Bildschirm' Ausdruck von ASClI-Files in diesem Zei¬ 
chensatz unter CP/M Plus. 

Leistungsumfang: CD.COM ist der Character-Designer, der Editierung 
oder Neuerstellung von Zeichensätzen und deren Speicherung erlaubt CD- 
PRINT druckt vorformatierte ASCII-Texte auf dem Joyce-Drucker oder anderen 
Druckern in dem gewünschten Zeichensatz aus 

CRAZY, ORIGINAL, LOCCHAR und SCRIPT sind mitgelieferte Zeichensätze. 
SETUP.COM erlaubt als Zugabe die Vorwahl einiger Systemparameter, z.B. die 
der seriellen Schnittstelle, der Tastaturgeschwindigkeit und de' Floppy-Steprate. 


2. MGX 

Funktion: Graphische Darstellung von mathematischen Funktionen und beliebi¬ 
gen Meßreihen auf Bildschirm oder irn Großformat auf dem Drucker. 
Leistungsumfang; Neben den arithmetischen Grundfunktionen sind auch wei¬ 
tere Funktionen darstellbar, die z.B. unter Mallard-Basic nicht zur Verfügung ge¬ 
stellt werden. Es können mehrere Funktionen und Meßreihen (diese wiederum 
mit mehreren Meßwerten gleichzeitig) dargestellt werden. 


Best.-Nr.: 215 


3“ Diskette 


59,- DM* 

unverb. Preisempf. 


(SUPERdat 

Eine universelle Dateiverwaltung für PCW 8256/8512 zur E-stellung eigener Dateien. 
Leistungsumfang; MASKE ist das Vorprogramm, mit dem Sie die Feld¬ 
namen- und Längen sowie die Länge des Suchbegriffs voreinsteilen können. 
SUPERdat ist das Hauptprogramm, welches die Daten Oer gewünschten Datei 
verwaltet. Neben der Eingabe von Daten in die Maske sind mehrere Sucharten, 
so z.B. auch Jokersuchen möglich. Jede Datei kann max. acht Felder enthalten, 
wovon jedes max. 40 Zeichen enthalten darf Die Gesamtlänge eines Datensat¬ 
zes darf 255 Zeichen betragen. 

SUPERtex Dieses Programm stellt eine Rundschreib-(Mailmerge-)funktion für 
SUPERdat zur Verfügung. In einen in Laufwerk M: befindlicnen ASCII-Text (z.B. 
mit RPED erstellt) werden automatisch vom Anwender vorausgewählte 


beliebige Einträge aus beliebigen SUPERdat-Dateien an beliebiger Stelle e nge- 
fügt. Weiterhin können 30 beliebige Datensätze in eine für LocoScript lesbare 
Datei umgewandelt werden. 

SUPERcal Der Taschenrechner zu SUPERdat. Dieser bietet neben den Grund¬ 
rechenarten auch Winkelfunktionen, quadratische- und Prozentfunktionen. Eine 
Klammerebene und Memory-Funktionen vervollständigen das Leistungsangebot 
dieses Programms. 


Best.-Nr.: 216 


3“ Diskette 


49,- DM* 

unverb Preisempf 




1. Feld-Tab 

Ein BASIC-Programm zum millimetergenauen Ausfüllen von Tabellen, Vor¬ 
drucken und Formularen. Feld-Tab Ist menügesteuert und bietet die Anwahl der 
einzelnen Funktionen, wie unter LocoScript gewohnt. Geben Sie Seitenlänge. 
Zeilenabstand und Tabulatoren in Millimetern ein, bestimmen Sie Schrittweite, 
Schriftart und Text. Text kann mit LocoScript erstellt werden und nach Umwand¬ 
lung in eine ASCII-Datei in Feld-Tab eingelesen werden. Weitere ASCII-Editoren 
können ebenso verwendet werden wie der komfortable programminterne Seiten¬ 
editor. Ein unentbehrliches Werkzeug! 

2. Gsxplot 

Ein üratikpaket für Statistiken, Geschäftspräsentationen und viele andere grafi¬ 
sche Anwendungen! Überein Menü sind folgende Funktionen wählbar: 


■ Balkendiagramme • Kurvendiagramme - Strichgrafik 
• Punkteüiagramme - Textgrafik 

Ein Hilfsprogramm erläutert Ihnen während der Arbeit mit Gsxplot die wichtig¬ 
sten Funktionen. Alle erstellten Grafiken können sowohl am Bildschirm als auch 
aui dem Drucxer dargestellt werden. Gsxplot braucht den Vergleich mit wesent¬ 
lich teurerer Software nicht zu scheuen! 


Zwei Disketten incl Bedienungsanleitung 


Best.-Nr.: 217 


69, - DM* 

unverb. Preisempf 


Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 3,- DM bzw. für das Ausland 5.- DM Porto und Verpackung. 

Bitte benutzen Sie die Bestellkarte. 
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3D-Grafik 
- die zweite... 

Erweiterungen für das 3-D 
Zeichenprogramm aus Heft 5/88 

Mit diesem Programmpaket erleichtern Sie sich das 
Arbeiten mit 3DZEICH, sparen Speicherplatz und 
stellen (in aller Bescheidenheit) nebenbei so manches 
DESK-TOP-PUBLISHING-Programm 
in den Schatten. 



Das Programmpaket besteht aus drei 
Teilen: dem Modul FLZEIGEN, dem 
Dateienkompressor KOMPRN und 
dem neuen Druckprogramm FL- 
DRUCK. Ein weiteres Programm, 
SYMBOLS, dient dazu, den Zeichen¬ 
satz des JOYCE geringfügig zu än¬ 
dern. Es stammt aus dem JOYCE-Son- 
derheft 1/87 und wurde von M. Anton 
geschrieben. 

Erst die Arbeit... 

Tippen Sie alle Programme ab, und 
speichern Sie diese unter dem angege¬ 
benen Namen auf Ihrer Startdiskette 
(die kennen Sie ja schon vom letzten 
Mal). Starten Sie die Programme auf 
keinen Fall, bevor Sie den Artikel nicht 
zu Ende gelesen haben. Das Programm 
FLZEIGEN benötigt nämlich noch ein 
paar kleine Ergänzungen, um richtig zu 
laufen, und FLDRUCK löscht beim 
Start einige seiner Zeilen (um Spei¬ 
cherplatz freizumachen). Sie sollten es 
daher sorgfältig abspeichern. 

Jetzt bekommen Sie 
etwas zu sehen! 

Sicher haben Sie sich manchmal beim 
Zeichnen Ihrer Objekte geärgert, wenn 


Sie ein bereits er¬ 
stelltes Bild nicht 
noch einmal auf 
dem Bildschirm an¬ 
schauen konnten. 
Damit ist jetzt 
Schluß. Das Modul 
FLZEIGEN er¬ 
möglicht es Ihnen 
jederzeit, Ihr ak¬ 
tuelles Bild (als 
Druckfiles auf Dis¬ 
kette gespeichert) 
auf den Schirm zu¬ 
rückzuholen. 

FLZEIGEN ist als 
Unterprogramm Ih¬ 
res Moduls FL- 
ZEICH vorgesehen und wird bei Bedarf 
mit “CHAIN MERGE“ eingebunden. 
Damit das richtig funktioniert, müssen 
Sie im Modul FLZEICH ein paar Zeilen 
ändern bzw. hinzufügen. Laden Sie BA¬ 
SIC und holen Sie sich dazu FLZEICH 
in den Speicher. Tippen Sie dann folgen¬ 
de Zeilen ein (“[“=EXTRA + “Ä“ 
EXTRA + “Ü“): 

10070 match$ = “ZVPLBD “ + CHRS (2) 

+ CHR$(27) 

10090 /$ = “[EXIT] [ZJeichnen [V]ersch 
ieben [PJarametermenü [LJösche 
n [BJild fDJruckfile “ + STR$ 
(dza%) 

10095 PRINT FNz$(i$) 

10110 ONantw GOTO 10550, 10460, 
10150, 10620, 10643, 10670, 
10643, 770 

10641 ’* Druckfiles sehen * 

10642 ’ 

10643 PRINTFNm$(58, "[Sehen]“) 

10644 CHAIN MERGE flzeigen ",10000 
,ALL 

10645 ’ 

Nach der Eingabe der Zeilen tippen Sie 
bitte: 

RENUM J0000 < RETURN > 

Speichern Sie nun das geänderte Pro¬ 
gramm wieder ab. Mit dieser Änderung 
besitzen Sie eine zusätzliche Funktion 
des Zeichenmoduls: 


[B] 

Zeigt Ihnen alle Druckfiles mit der ak¬ 
tuellen Kennung (d.h. das Bild, das Sie 
erstellt haben) auf dem Bildschirm. 

[ALT]-Taste+ [B] 

Zeigt Ihnen alle Druckfiles mit der ak¬ 
tuellen Kennung und übernimmt gleich¬ 
zeitig den Zählerstand (die Anzahl der 
gespeicherten Druckfiles). Diese Option 
ist nützlich, wenn Sie z.B. an einem be¬ 
reits erstellten Bild Weiterarbeiten möch¬ 
ten. Sie geben dann beim Start des Zei¬ 
chenprogramms einfach die entsprechen¬ 
de Kennung ein, wählen das Zeichenme¬ 
nü (natürlich erst eine Datei laden) und 
holen sich das Bild wieder auf den 
Schirm. 

Wenn FLZEIGEN seine Dienste getan 
hat, muß der “Normalzustand“ des Mo¬ 
duls FLZEICH wieder hergestellt wer¬ 
den. Das heißt, daß die von FLZEIGEN 
überschriebenen Zeilen wieder durch 
FLZEICH-Zeilen ersetzt werden müs¬ 
sen. Für das Ersetzen sorgt FLZEIGEN, 
nur die Programmzeilen müssen Sie be¬ 
sorgen. Und das geht so: Laden Sie (das 
geänderte) FLZEICH in den Speicher 
und tippen Sie dann: 

DELETE10310 

Als Ergebnis erhalten Sie die ersten 30 
Zeilen des Programms FLZEICH. Das 
sind genau die Zeilen, die beim “CHAIN 
MERGE“ durch FLZEIGEN ersetzt 
werden. Speichern Sie diese unter dem 
Namen “NORMAL“ auf Ihrer Startdis¬ 
kette ab. 

Aus Zwei mach’ Eins! 

Falls sich auf Ihrer Datendiskette mittler¬ 
weile Unmengen von Druckdateien 
gesammelt haben, sollten und Sie 
so langsam Platzangst bekommen, so 
schafft der Dateienkompressor KOM¬ 
PRN Abhilfe. Er faßt alle Dateien einer 
Kennung zu einer einzigen Druckdatei 
zusammen. Diese kann dann mit dem 
neuen Druckprogramm ausgedruckt 
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werden. Die Speicherplatzerspamis, 
die dadurch erreicht wird, ist zum Teil 
enorm. Das hat zwei Gründe: 

Erstens berechnet Ihr DOS (Disc Ope- 
rating System) für jede Datei minde¬ 
stens 1K, selbst wenn in der Datei nur 
ein einziges Byte steht. 

Zweitens entfernt KOMPRN aus jeder 
Druckdatei diejenigen Punkte, die in 
X- und Y-Werten mit den vorausge¬ 
gangenen übereinstimmen (das ist bei 
Flächen, die über den Rand gezeichnet 
werden häufig der Fall). So werden aus 
20K Platzbedarf für ein Bild aus Ein¬ 
zeldateien u.U. 4K für die komprimier¬ 
te Datei. Die Bedienung von KOM¬ 
PRN ist einfach. Nach dem Start paßt 
es sich automatisch an den vorhande¬ 
nen Speicherplatz an (BASIC ohne 
Treiber, BASIC mit Bildschirmtreiber 
und BASIC mit Druckertreiber). In der 
linken oberen Ecke wird Ihnen sodann 
die maximale Anzahl der zu verarbei¬ 
tenden Dateien genannt. Als nächstes 
werden Sie nach dem Laufwerk zum 
Laden der Dateien gefragt (alle Einga¬ 
ben mit < RETURN> abschließen). 
Bevor Sie das Laufwerk angeben, soll¬ 
ten Sie unbedingt Ihre Datendiskette 
einlegen. Das Programm sucht näm¬ 
lich sofort nach der Eingabe nach 
Druckdateien auf dem angegebenen 
Laufwerk. Falls es dort keine findet, 
wird die Eingabe-Prozedur wiederholt, 
ansonsten werden die vorhandenen 
Druckdateien aufgelistet. Nup müssen 
Sie die Kennung der zu komprimieren¬ 
den Dateien angeben (die Dateien, die 
Sie zusammenfassen möchten). Da¬ 
nach verlangt das Programm die Anga¬ 
be des Ziellaufwerkes (achten Sie dar¬ 
auf, daß Sie genügend Platz auf der 
Diskette haben!) und zu guter Letzt die 
Kennung für die komprimierte Datei. 
Diese Kennung besteht aus drei Buch¬ 
staben, die Sie auch eingeben müssen. 
Nun werden Sie gefragt, ob alles OK 
ist, und wenn Sie mit “J“ antworten, 
beginnt das Programm mit der Arbeit. 
Ansonsten beginnt alles von vorne... 
KOMPRN markiert die komprimierte 
Datei, damit FLDRUCK sie erkennen 
kann. Dazu wird die Zahl -11111 an 
den Anfang der Datei geschrieben (sie¬ 
he Listing KOMPRN, Zeile 1290). Ist 
die Komprimierung abgeschlossen, so 
meldet sich das Programm mit 
” [EXIT]=Aufhören“. Falls Sie wei¬ 
termachen wollen, so drücken Sie [RE¬ 
TURN], falls nicht, drücken Sie 
[EXIT]. Übrigens können Sie jederzeit 
(außer beim Komprimieren) aus dem 
Programm aussteigen, indem Sie 
[EXIT] drücken! Falls sich mehrere 
Dateien derselben Kennung auf Disket¬ 


te befinden, als KOMPRN verarbeiten 
kann, so lädt das Programm die maxi¬ 
mal mögliche Anzahl und meldet es Ih¬ 
nen. Nachdem Sie die Meldung quit¬ 
tiert haben (Taste drücken), werden Sie 
gefragt, ob Sie das Ergebnis trotzdem 
speichern möchten. Wollen Sie das 
tun, so antworten Sie mit “J“ (auch hier 
die Eingabe mit < RETURN > ab¬ 
schließen). Doch nun zum “Flagg¬ 
schiff“ des Programmpaketes: 

Das neue Druckprogramm 

Ich verspreche nicht zuviel, wenn ich 
behaupte, daß Sie mit Hilfe dieses Pro¬ 
gramms schon fast Desk-Top-mäßig 
arbeiten können. Schauen Sie sich doch 
einmal Bild 1 an... So etwas können Sie 
von nun an auch kreieren! Bevor es 
aber ans Eingemachte geht, noch ein 
Hinweis: 

FLDRUCK arbeitet mit einem leicht 
geänderten Zeichensatz (keine Angst, 
das betrifft nur die Zeichen 255 und 
254). Das Programm, das den Zeichen¬ 
satz ändert, heißt SYMBOLS und 
stammt, wie schon erwähnt, von 
M. Anton. SYMBOLS muß vor 
FLDRUCK zum Einsatz kommen, und 
dafür sorgt eine neue PROFI¬ 
LE. SUB-Datei, auf die ich später noch 
eingehe. Doch nun zum Programm. 
Das neue Druckprogramm druckt so¬ 
wohl die “normalen“, als auch die 
komprimierten Druckdateien aus (es 
stellt sich automatisch auf die Dateiart 
ein!). Nach dem Start meldet es sich 
mit einer Menüzeile (siehe Bild 2). Die 
Eingaben erfolgen genauso wie beim 
Programm 3DZEICH, das heißt, Sie 
wählen alle Optionen per Druck auf die 
entsprechende Taste. Dateneingaben 
müssen Sie mit < RETURN > ab¬ 
schließen. Folgende Möglichkeiten 
stehen Ihnen im Hauptmenü zur Verfü¬ 
gung: 

[I] Inhaltsverzeichnis zeigen 
Sie können zwischen Laufwerk “A“ 
und “M“ und der Art der zu zeigenden 
Dateien wählen. Geben Sie bei “Datei¬ 
en:“ ein “s“ ein, so werden die Dateien 
(Name).PGE aufgelistet. Sie enthalten 
die Daten für die Gestaltung Ihrer Seite 
(dazu komme ich später). Wenn Sie 
“d“ eingeben, so werden die Druckda¬ 
teien (Name).PRN aufgelistet. Nach 
dem Auflisten befinden Sie sich auto¬ 
matisch wieder im Hauptmenü (also 
nicht [EXIT] drücken!). 

[B] Bild drucken 

Druckt nach Ihren Angaben ein existie¬ 
rendes Bild aus. Zuerst werden Sie 
nach dem Namen des Bildes gefragt 


Programmierer aufgepaßt! 
DMV bringt jetzt: 


DIE BASIC2 
TOOLBOX 



Das Buch zu BASIC2 

PCl512/1640-Besitzer können aufatmen. 
Jetzt ist sie da, die BASIC2-Toolbox. Mit die¬ 
sem einzigartigen Buch sind Sie nun in der 
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Kurze Einführung in die Software-Entwicklung 
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Werkzeuge für 8ASIC2 

- Lister ermöglicht die formatierte Druckausgabe für 
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- Preprozessor für Include-Dateien 
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verweislisten 

Werkzeuge zur Behandlung von Textdateien 

- Auswertung von Word-Textdateien 

- CUT, ein Filter für Textdateien 

- PASTE.Vereinigung von Textdateien 

Werkzeuge zur Software-Entwicklung 

- CALC. ein Rechner für verschiedene Zahlensy¬ 
steme 

- DUMP, Ausgabe beliebiger Dateien im Hexformat. 

- COMHEX, Umwandlung von COM-Dateien in 
HEX-Files 

Ein kompletter Disassembler für den Intel 8086 

- Von der Struktur zum fertigen Programm. 

Ein Disassembler wird programmiert. 
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(Name = Kennung der entsprechenden 
Druckdatei/en). Als nächstes müssen 
Sie das Laufwerk angeben, auf dem 
Sich Ihr Bild befindet. Danach werden 
Sie nach dem Format für Breite und 
Höhe des Bildes gefragt. Wenn Sie das 
Bild in voller Größe ausdrucken möch¬ 
ten, so geben Sie bei den Formaten je¬ 
weils eine “1“ ein (größere Eingaben 
als 1 werden nicht zugelassen). Anson¬ 
sten stehen Ihnen alle Formate von 0 
bis 1 zur Verfügung, das heißt, Sie 
können das Bild beliebig verkleinern. 
Übrigens, können Sie die Eingaben je¬ 
derzeit korrigieren. Während der Ein¬ 
gabe geschieht das durch die 
[DEL]-Taste. Falls Sie sich bei einer 
Eingabe vertippt haben, und das erst 
bei der nächsten bemerken, so können 
Sie duch Druck auf die [CAN]-Taste 
zurückspringen. Wenn Sie alle Einga¬ 
ben beendet haben, so werden Sie ge¬ 
fragt, ob “alles ok“ ist. Wenn Sie die¬ 
ser Meinung sind, so drücken Sie die 
Taste [J], wenn nicht, so drücken Sie 
(N], und die Eingabeprozedur beginnt 


von vorne. War alles ok, so können Sie 
nun zwischen [D] rucken und [EXIT] 
wählen. Mit [EXIT] gelangen Sie wie¬ 
der ins Hauptmenü. 

Dabei werden allerdings Ihre Eingaben 
gelöscht. Haben Sie sich für’s Drucken 
entschieden, so werden Sie nun aufge¬ 
fordert, Papier in den Drucker zu legen 
und [0]k oder [EXIT] zu wählen. Bei 
[0]k wird gedruckt, bei [EXIT] geht’s 
zurück ins Hauptmenü. Noch ein Wort 
zum Drucken. Da der Drucker “faul“ 
ist, wird Ihr Bild hier so ausgegeben, 
daß der Drucker möglichst wenig zu 
tun hat. Kleine Formate erscheinen 
also möglichst weit oben und möglichst 
weit links auf dem Blatt (falls Sie es an¬ 
ders möchten, so schauen Sie ins Menü 
“Seite erstellen“). 

[E] Seite erstellen 

Druckt nach Ihren Angaben bis zu 20 
Bilder an beliebiger Stelle des Blattes, 
mit und ohne Rahmen. Die Höhen und 
Breiten der Bilder sind frei wählbar 
und nur durch die Blattgröße begrenzt. 


Zu Beginn der Eingabe werden Sie, 
wie bei “Bild drucken“, nach Namen 
und Laufwerk des betreffenden Bildes 
gefragt (die aktuelle Bildnummer steht 
hinter “Seite eingeben“). Als nächstes 
müssen Sie den Abstand Ihres Bildes 
vom linken Blattrand in Zentimetern 
eingeben (mindestens 0,4 cm, maximal 
20,6 cm). Das ist der Abstand, der zwi¬ 
schen dem linken Rand ihres Bildes 
und dem linken Blattrand liegen soll. 
Danach geben Sie den Abstand Ihres 
Bildes vom oberen Blattrand ein (min¬ 
destens 2.3 cm, maximal 26,3 cm). Da¬ 
mit ist der Abstand zwischen der Un¬ 
terkante Ihres Bildes und dem oberen 
Blattrand gemeint. Nun müssen Sie 
noch die Höhe, und danach die ge¬ 
wünschte Breite ihres Bildes angeben. 
Das Programm prüft alle Eingaben auf 
ihre Zulässigkeit und bezieht die vor¬ 
ausgegangenen Eingaben mit ein. Un¬ 
zulässige Werte werden zurückgewie¬ 
sen. Es ist also nicht möglich, über den 
Blattrand hinaus zu drucken. Das 
Druckprogramm ist auf Blätter mit ei¬ 
ner Höhe von 29,7 cm und einer Breite 
von 21 cm eingerichtet (ein Format, 
das Sie auch bei Kopierern finden). 
Zum Schluß müssen Sie noch entschei¬ 
den, ob Sie Ihr Bild rahmen wollen. 
Wenn ja, geben Sie “j“ ein, wenn nicht 
drücken Sie einfach [RETURN]. Ha¬ 
ben Sie sich beim Eingeben geirrt, so 
können Sie Ihre Eingaben wie bei “Bild 
drucken“ korrigieren. Nach den Einga¬ 
ben werden Sie auch hier wieder ge¬ 
fragt, ob alles OK ist. Sollten Sie dieser 
Meinung sein, dann drücken Sie die 
Taste [JJ. Sie können nun zwischen 
mehreren Optionen wählen: [WJeitcr 
führt zur Eingabe der nächsten Bild¬ 
daten. 

[SJehen 

zeigt Ihnen die Daten, die Sie schon 
eingegeben haben, in folgender Rei¬ 
henfolge: Laufwerk, Rahmen (gerahmt 
=Kästchen, ungerahmt=Schrägstrich), 
Dateiname, linker Abstand, oberer Ab¬ 
stand, Höhe, Breite. [D]rucken druckt 
Ihnen die Seite aus (wie bei “Bild 
drucken“). 

[EXIT] 

führt zurück ins Hauptmenü. Dabei blei¬ 
ben die eingegebenen Daten erhalten. 

[Speichern 

Speichert die Daten Ihrer Seite auf dem 
Laufwerk “A“ oder “M“ unter einem 
Namen (bis zu 8 Buchstaben) ab. Die Da¬ 
tei heißt (Name).PGE (PGE wie 
PAGE == Seite).Übrigens überprüft das 
Programm nicht, ob eine Datei dieses 
Namens schon existiert. Dazu steht Ihnen 
der Menüpunkt “Inhaltsverzeichnis“ zur 
Verfügung. 



Bild 1: So könnte Ihr nächster Brief aussehen... 
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[Ljaden 

Lädt nach Eingabe des Laufwerks und 
des Dateinamens eine existierende PGE- 
Datei. Die Daten stehen Ihnen dann im 
Menü “Erstellen“ (Option [Ej) zur Ver¬ 
fügung. 

Die Startdiskette 

Nachdem Sie alle Programme abgetippt, 
und das Modul NORMAL erzeugt ha¬ 
ben, müssen sich auf Ihrer Startdiskette, 
neben den schon vorhandenen Program¬ 
men, folgende Programme befinden: 
FLZEIGEN.BAS 
NORMAL. BAS 
SYMBOLS. BAS 

und statt Ihres alten Druckprogramms 
das neue Druckprogramm 

FLDRUCK.BAS 

Wie schon erwähnt, sollte vor dem Start 
von FLDRUCK das Programm SYM¬ 
BOLS zum Einsatz kommen, um den 
Zeichensatz entsprechend zu ändern. Das 
erreichen Sie am einfachsten mit einer 
neuen PROFILE.SUB-Datei, die dafür 
sorgt, daß alle Programme geladen wer¬ 
den, und SYMBOLS seinen Dienst tut, 
bevor es mit dem Zeichnen und Drucken 
überhaupt losgeht. Und so sieht die neue 
Datei PROFILE. SUB aus ([=Ä, ] = Ü): 

setdef m:,* forder = (sub,com) tempo 
rary = m:] 

pip 

< m: =basic. com[o] 

<m: =3dzeich.bas[o] 

<m: =flerst.bas[o] 

< m: = flzeich. bas[o] 

< m: =flzeigen.bas[o] 

<m: = normal. bas{o] 

< m: = fldruck. bas [oj 
<m: =ddscreen.prl[o] 

< m: = ddfxhr8.prl[o] 

<m: =assign.sys[o] 

<m: =gsx.sys[o] 

< m: 

basic a: symbols 
basic 3dzeich 

Erstellen Sie PROFILE.SUB bitte mit 
dem Editor RPED.BAS. Falls Sie über 
die große RAM-Disk verfügen, so kön¬ 
nen Sie ohne weiteres auch noch 
KOMPRN hinzuladen. Ich habe das hier 
nicht getan, denn alle Dateien zusammen 
belegen ohnehin schon 96K der RAM- 
Disk. Falls Sie lediglich über die kleine 
RAM-Disk verfügen und Vorhaben, viele 
Bilder auf einmal auszudrucken, müssen 
Sie unter Umständen vorher einige Pro¬ 
gramme auf der RAM-Disk löschen. Der 


Druckertreiber legt nämlich bei komple¬ 
xen Bildern (wenn der eigene Speicher¬ 
platz dicht ausreicht) eine Datei auf Dis¬ 
kette an, in der die Daten zwischenge¬ 
speichert werden. Das Programm FL¬ 
DRUCK ist so eingerichtet, daß der 
Druckertreiber immer auf der RAM- 
Disk arbeitet. Sie können diese Schwie¬ 
rigkeiten allerdings umgehen, indem Sie 
FLDRUCK nicht auf die RAM-Disk la¬ 
den, sondern später von der Startdiskette 
holen. Damit gewinnen Sie immerhin 
14KB. Und das geht so: 

Nachdem Sie mit dem Zeichnen aufge¬ 
hört haben und mit “SYSTEM“ aus BA¬ 
SIC herausgespmngen sind, schieben Sie 
die Startdiskette ins Laufwerk und 
tippen: 

BASIC A.FLDRUCK <RETURN> 
Damit erreichen Sie, daß BASIC von der 
RAM-Disk und FLDRUCK von Lauf¬ 
werk “A“ geladen wird. Ansonsten 
bleibt alles beim alten. 

Nun zum DESK-TOP... 

Wenn Sie eine Seite gestalten möchten, 
dann gehen Sie am besten so vor: Schrei¬ 
ben Sie zuerst mit LOCOSCRIPT Ihren 
Text und lassen an den Stellen Platz, an 
denen sich Ihre Bilder später befinden 
sollen. Drucken Sie den Text aus und er¬ 
stellen Sie dann Ihre Titel und Bilder mit 
3DZEICH. Mit FLDRUCK können Sie 
diese dann bequem in den Text einpas- 
sen. Die einzige “Handarbeit“, die Sie zu 
leisten haben, besteht darin, die Abstän¬ 
de auf dem Papier auszumessen. Spannen 
Sie dann den Text in den Drucker, und 
los geht’s. Sie werden sehen, bei großen 
Schriften ist die Qualität kaum zu schla¬ 
gen! Die Genauigkeit, die Sie beim Aus¬ 
drucken erreichen können, liegt im Milli¬ 
meterbereich. Dazu müssen Sie das Pa¬ 
pier allerdings sehr genau einlegen. Es 
sollte genau in der Mitte des Druckers 


Bild 2: So präsentiert 
sich das neue 
Druckprog ramm 


(zentriert) eingespannt werden. Beim Er¬ 
stellen der einzelnen Buchstaben reichen 
nach meinen Erfahrungen die 60 Punkte 
pro Fläche des Zeichenprogramms voll 
aus. Falls Sie Schwierigkeiten bei der 
Eingabe von Kreisen (z.B. beim Buchsta¬ 
ben “o“) haben, so zeichnen Sie einfach 
einen Kreis auf den Bildschirm und “tip¬ 
pen“ ihn dann ab. Achten Sie außerdem 
darauf, daß Sie beim Erstellen der Titel 
den ganzen Bildschirmbereich ausnut¬ 
zen, und verwenden Sie hierfür das nor¬ 
male Bildschirmformat. Hier kommt 
übrigens das Modul FLZEIGEN voll 
zum tragen, da Sie Ihr Bild (den Titel) je¬ 
derzeit wieder sehen, und so bequem ar¬ 
beiten können. Und nun wünsche ich Ih¬ 
nen viel Spaß mit den neuen Pro¬ 
grammen. 

(Rainer Teßmann/me) 


Hinweis: 

Dieses Programm arbeitet unter Matlard-BASIC. Die 
links neben den Zeilennummern in spitzen Klammern 
befindlichen Zahlen sind Prüfsummen für das Prüfsum¬ 
menprogramm 'CHECK' aus Joyce Sonderheft 1 und 
dürfen nicht mit abgetippt werden. Die Punkte, die 
nicht in Anführungszeichen (" “) stehen und nicht als 
Dezimalpunkt verwendet werden (27.45), dürfen eben¬ 
so nicht mit abgetippt werden; sie werden vom Prüf¬ 
summenprogramm als sichtbare Platzhalter für / cer- 
zeichen erzeugt. 

Die Sonderzeichen, die Sie z.B. im Listing 'FL¬ 
DRUCK' in Zeile 470 finden, entstanden bei der Aus¬ 
gabe des Listings auf den Laserdrucker und stehen für 
die eckigen Klammern, hier z.B : 

..CHR$(133) I “[IInhalts... 

Zeile 190im Modul 'FLDRUCK’enthält das Paragra¬ 
phenzeichen (§), welches unbedingt gegen den 'Klam¬ 
meraffen ' (@) ersetzt werden muß 
Nach dem Abtippen (vor dem ersten Start) müssen die 
Module unbedingt abgespeichert werden! 

Beispiel: SAVE “FLDRUCK 

Start des Programms: 

Nur in Laufwerk M, wie im Text beschrieben!.' Am sinn¬ 
vollsten ist die Erstellung einer Startdiskette (wie im er¬ 
sten Teil in Heft 5/88 beschrieben) und der Auto-Start 
des Programms beim Einschalten des Computers. 
Übrigens: Die Databox zu diesem Heft enthält auf Seite 
B eine komplett lauffähige Startdiskette, die Sie nur 
noch mit DISCKIT kopieren müssen, um dann mit der 
Kopie gleich arbeiten zu können.,. 
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LISTING > FLZ E XGEN <, REMARK = > <• 


< 58 > 

< 2 > 

< 36 > 

< 15 > 
<88> 

< 5 7 > 

< 7 1 > 
<93 > 

< 69 > 

< 90 > 

< 62 > 

< 78 > 

< 3 > 

< 40 > 

< 18 > 

< 1 4 > 

< 65 > 

< 95 > 

< 9 > 

< 45 > 
<67> 

< 61 > 

< 20 > 

< 7 > 

< 13> 

< 84 > 

< 8 > 
< 2 0 > 
< 44> 
<63 > 
<37> 


10000 '* Modul "Flächen zeigen" * 

10010 * 

10020 OPTION FILES Orive$ 

10030 GOSUB 30200 

10040 IF NOT FIND$("1”+dname$+“.PRN") = "" THEN 1007 
0 

10050 PRINT FNz$(" Druckdatei "+nor$+" l"+dname$+" 
.PRN "+1nv$+" nicht vorhanden !") 

10060 1$=INPUT$(1):GOTO 10290 
10070 zaX=l 

10080 WHILE NOT FIND$(MID$(STR$(zaX),2,3)+dname$+" 
.PRN“)=”" 

10090 zalX=-l 

10100 OPEN "I“,l,MID$(STR$(zaX).2,3)+dname$+".PRN“ 
10110 INPUT IU,drmX(0).fbX(O).fsX(O).wrmXCO) 

10120 WHILE NOT (EOF(1)) 

10130 zalX=zalX+2 

10140 INPUT *1.plX(zalX).p1X(zalX+l) 

10150 WEND 

10160 zmaxX(0)=(zalX+1)/2 
10170 CLOSE 1 

10180 fbX=fbX(0):fsX=f»X<0) 

10190 wrmX=wrmX(0):GOSUB 30160 

10200 contrlXCl)=drmX(0) 

10210 contr1X C 2 ) = zmaxX( 0 ) 

10220 GOSUB 50610 
10230 zaX=zaX+1 
10240 WEND 

10250 OPTION FILES "m" 

10260 fbX=fb*(fIX):fsX=f 5 X(fIX) 

10270 wrX=wrX(fIX):GOSUB 30160 
10280 IF antw=7 THEN dzaX=zaX-l 
10290 CHAIN MERGE "normal".10000.ALL 
10300 OPTION FILES Drive$ 


LISTING >KOMPRN<. REMARK = >‘<. 


< 90 > 

< 7 > 
<10> 

< 8 > 
< 12 > 
< 2 > 

< 17> 

< 5 > 

< 34 > 

< 36 > 

< 19 > 

< 79 > 

< 2 3 > 

< 17> 
<94> 

< 22 > 

< 89 > 
<21 > 

< 35 > 

< 47> 

< 20 > 

< 36> 
<67 > 

< 42 > 

< 2 8 > 
< 6 > 
<32 > 

< 5 > 

< 2 3 > 
<92> 
<24> 

< 80 > 
< 6 > 

< 67 > 
<94> 

< 54 > 

< 82 > 

< 35 > 

< 49 > 
<39> 

< 75> 

< 25 > 


100 '************************************* 


110 '*. 

120 . Dateienkompressor... 

130 '*. zum 30-Zelchenprogramm. 

140 '*.... 1988 von Rainer Tessmaon 

150 '*. 1000 Berlin 21. 

160 '*. 

170 '*«•*•******•**•**•**■•*«•*••«* 
180 ' 

190 1 
200 ' 


210 '* Speicheranpassung * 

220 ' 

230 CLEAR:speicherX=FRE(0) 

240 IF spei CherX<12000 THEN ENO 
250 IF speicherX>12000 THEN ddX=20 
260 IF speicherX>21000 THEN ddX=40 
270 IF speicherX>26000 THEN ddX=50 
280 ' 

290 ’* Felder dimensionieren * 

300 ‘ 

310 OIM drmX(ddX).fbX(ddX),fsX(ddX),wrmX{ddX) 

320 OIM zmaxX(ddX),x%(100},yX(100) 

330 OIM pxX(ddX,100),pyX(ddX,100) 

340 1 

350 '* Bl 1dschirmfunkt 1onen 
360 ' 

3 70 Cl s$ = CHR$(2 7) + "E" + CHR$(27) + "H" 

380 hom$ = CHR$(27) + "H" 

390 con$=CHR$(27)+"e" 

400 coff$=CHR$(27)+"f" 

410 1nv$=CHR$(27)+"p" 

420 nor$=CHR$(2 7) + "q" 

430 c1u$=CHR$(27)+"J" 

440 11ne$ = STRING$(90,) 

450 scrclp$=CHR$(27)+"X"+CHR$(49)+CHR$(32)+CHR$(45 
)+CHR$(121) 

46 0 scrno r$=CHR$(2 7) + "X"+CHR$(32)+CHR$(32)+CHR$(62 
)+CHR$(121) 

470 1 

480 '* Funktionen definieren * 

490 ' 

500 DEF FNm$(xpX.ypX,m$)=CHR$(27)+"Y"+CHR$(32+ypX) 
+CHR$(32+xpX)+m$ 

510 DEF FNcl$(y)=CHR$(2 7 ) + ” Y" + CHR$(32 + y)+CHR${32) + 
CHR$(27)+"1" 


< 88> 520 DEF FNcc$=CHR$(27) +"D"+CHR$(27) + ”N" 
<28> 530 ' 

<63> 540 '* Hauptprogramm * 

<32> 550 ' 

<31> 560 PRINT cls$;coff$;CHR$(27)+"l”; 

<78> 570 PRINT STR$(ddX)+" Dateien frei" 

<60> 580 m$="Laufwerk zum Laden . 


<95> 

< 64> 
<10> 

< 66 > 
< 12 > 

< 80 > 
<12> 
<94> 

< 42 > 

< 35 > 

< 86 > 

< 76> 

< 7 > 

< 31 > 

< 43 > 

< 95 > 

< 44 > 
<45> 


590 xpX=0:ypX=3:1X=1:GOSUB 1560:Drive$=UPPER$(i$) 
600 IF NOT ( Dr ive$="A" OR Drive$="M") THEN 590 
610 IF Drive$="A“ THEN OPTION FILES "a" 

620 IF Dr1ve$="M" THEN OPTION FILES "m" 

630 PRINT FNm$(l,14,"Druckdateien Laufwerk "+Drive 
$+" :") 

640 PRINT FNm$(0,15,11ne$) 

650 IF NOT FINO${.PRN")="" THEN 730 
660 PRINT FNm$(0,16,”");c1u$ 

670 PRINT CHR$(7);FNm$(1,17,inv$+" Keine Druckdate 
ien vorhanden ! ”+nor$) 

680 1$=INPUT$(1) 

690 IF ASC(1 $)=27 THEN 970 

700 1$=UPPER$(1$):PRINT FNc1$(17) 

710 IF i$=“W" THEN 650 

720 GOTO 580 

730 PRINT scrclp$;clu$ 

740 FILES C.prn") 

750 PRINT scrnor$ 

760 m$="Kennung der Dateien ( 1 Buchstabe ) 


<43> 770 xpX=0:ypX=5:1X=1:GOSUB 1550:id$=i$ 
<15> 780 m$="Laufwerk zum Speichern . 


< 9 > 790 xpX=0:ypX=7:1X=1:GOSUB 1550: Dri ven$ = UPPER$( i $) 

< 6 > 800 IF NOT (Orlven$="A" OR Driven$ = "M") THEN Drive 

n$=Dr1ve$ 

<11> 810 m$="Kennung der neuen Datei ( 3 Buchstaben) : 


< 64 > 

< 4 > 
<63> 

< 65 > 

< 69 > 

< 62 > 

< 9 > 
<66 > 
<34> 

< 3 > 

< 19 > 

< 32 > 

< 76> 

< 66 > 
< 2 6 > 

< 48 > 

< 42 > 

< 91 > 

< 83 > 

< 59 > 

< 20 > 

< 61 > 
<84> 

< 96 > 

< 82 > 

< 77 > 

< 9 > 

< 46 > 

< 9 6 > 

< 6 7 > 

< 82 > 
< 2 2 > 
<93> 

< 47 > 

< 5 > 
<33> 
<37> 

< 7 > 

< 41 > 

< 22 > 

< 2 6 > 

< 91 > 

< 0 > 
<87> 
< 6> 

< 1 7 > 

< 67 > 

< 18 > 

< 5 5 > 

< 59 > 


820 xpX=0:ypX=9:1X=3:GOSUB 1550:1dn$=1$ 

830 IF LEN(idn$)<3 THEN 810 
840 m$="AIles OK ? " 

850 xpX=0:ypX=ll:1X=1:GOSUB 1550 
860 IF UPPER$(i$)="J" THEN 870 ELSE 960 
870 GOSUB 1010:IF okX=l THEN 920 
BBO m$="Date1 trotzdem speichern ? " 

890 xpX=0:ypX=l1:1X=1:GOSUB 1550:PRINT FNc1$(ll) 
900 IF UPPER$(1 $) = “J" THEN 910 ELSE 940 
910 PRINT FNm$(0,ll,inv$+" Bitte Warten ! "+nor$) 
920 GOSUB 1270 
930 ' 

940 m$=‘" u *EXIT b = Aufhören. " 

950 xpX=0:ypX=l1:1X=1:GOSUB 1550 
960 PRINT FNc1$(ll);COff$:GOTO 580 
970 OPTION FILES "m":PRINT cls$;con$:END 
980 ’ 

990 '* Dateien laden * 

1000 1 

1010 IF NOT FIND$(''l" + id$+" . PRN" ) = " " THEN 1040 
1020 PRINT CHR$(7);FNm$(0,11,"Druckdatei "+1nv$+" 
l"+id$+".PRN "+nor$+" nicht vorhanden !") 

1030 GOTO 760 

1040 PRINT FNm$<0,11,inv$+" Bitte Warten ! ”+nor$) 

1050 zaX=l:zalX=0 

1060 WHILE NOT FIND$(MID$(STR${zaX),2,3)+id$+".PRN 
") = "■■ 

1070 IF zaX>ddX THEN 1200 

1080 OPEN "I",1,MID$(STR$(zaX),2,3)+id$+".PRN" 

1090 INPUT #1.drmX(zaX),fbX(zaX),fsX(zaX),wrmX(zaX 

) 

1100 WHILE NOT (EOF(1)) 

1110 zalX=zalX+l 

1120 INPUT #l,xX(zalX).yX(zalX) 

1130 WEND 

1140 zmaxX(zaX)=2alX 
1150 CLOSE 1 
1160 GOSUB 1400 
1170 zaX=zaX+l:zalX=0 
1180 WEND 

1190 dfmaxX=zaX-l:OkX=1;RETURN 
1200 dfmaxX=ddX:okX=0 

1210 PRINT CHR$(7);FNm$(0,11,1nv$+" Kann nicht all 
e Dateien laden ! "+nor$) 

1220 1$=INPUT$(1) 

1230 RETURN 
1240 ' 

1250 '* Neue Datei speichern * 

1260 1 

1270 OPTION FILES Driven$ 

1280 OPEN "0",1,”l"+1dn$+".PRN“ 

1290 WRITE #1,-11111 
1300 FOR zaX=l TO dfmaxX 

1310 WRITE #1.drmX(zaX),fbX(zaX),fsX(zaX),wrmX(zaX 
),zmaxX(zaX) 


Listing “3D-Grafik, die Zweite 


Listing ‘‘30-Gra(il<, die Zweite, ” 
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<257 

1320 

<967 

1330 

< 87 

1340 

<517 

1350 

< 67 

1360 

<117 

1370 

<517 

1380 

<177 

1390 

<337 

1400 

<517 

1410 

<127 

1420 


) TH 

<797 

1430 

<687 

1440 

<987 

1450 

<107 

1460 

<407 

1470 

<947 

1480 

<837 

1490 

<857 

1500 

<92 7 

1510 

<947 

1520 

< 37 

1530 

< 727 

1540 

< 97 

1550 

<877 

1560 

<387 

1570 

<147 

1580 

<697 

1590 

<307 

1600 

<927 

1610 

<437 

1620 

<287 

1630 

<417 

1640 

< 747 

1650 

<857 

1660 

<897 

1670 

<537 

1680 

<427 

1690 

<717 

1700 

< 57 

1710 


FOR zalX=l TO zmaxX(zaX) 

WRITE #l,pxX(zaX,zalX),pyXCzaX,za IX) 

NEXT zalX : NEXT 2a* 

CLOSE 1 

OPTION FILES Drive$:RETURN 

'* Komprimieren * 

zal*=0:za 2 *=I 

WHILE za2*<zmax*(2a*) 

IF x%(za2X)=xX(za2X+l) AND yX(za2%)=yX(za2*+1 
EN 1460 
zalX=za1X+1 

pxX(zaX,zalX)=x*(za2X) 
py*(za*,zal*)=y*(za2*) 
za2X=za2X+l 
WENO 

zal*=zal*+l 

px*(za*,zal*)=x*(za2X) 
py*(za*,zal*)=y*(za2*) 

2 max*(za*)=zal* 

RETURN 

'* Buchstaben eingeben * 

PRINT FNc1 $(y pX) 

st*= 0 : i $= " " : i l’$ = " " 

PRINT FNm$(xp*,yp*,m$+i$);con$; 

11$=(INPUT$(1)) 

WHILE ASC(ii$)<122 AND ASC(i>$)>96 AND stX<lX 
st*=st*+l:i$= 1 $+ 1 i$ 

PRINT FNm$(LEN(m$),yp%,i$); 
ii$=(INPUT$(1)):WEND 
IF 11$=CHR$C27) THEN 970 
IF NOT ASC(ii$)=127 THEN 1710 
IF LEN(i$)>1 THEN 1680 
PRINT FNcc$;:GOTO 1570 
i$=LEFT${i$,LEN(i$)-l) 
st*=st*-l:PRINT FNcc$; 

GOTO 1580 

PRINT cOff $:RETURN 


LISTING 7 

< 157 

100 

<867 

110 

<397 

120 

<927 

130 

< 797 

140 

<947 

150 

<277 

160 

<327 

170 

< 737 

180 

<217 

190 


F LORUCK <, REMARK = >'<. 

'******«*****,**,«********************* 

' * . * 

'*. Oruckprogramm. * 

1988 von Rainer Tessmann. » 

' *. 1000 Berlin 21. • 

1 * . * 

'*********«*************«************** 

OPEN "o",1,"ASSIGN.SYS” 

FRINT #1.”01 §:DDSCREEN":CLOSE 1 


<19 > 200 ' 

< 29 > 210 '* INIT GSX / Statuszeile löschen * 

<23> 220 ' 

<5S> 230 GOSUB 4200 

<61> 240 PRINT CHR$(27)+"0” ; CHR$ ( 2 7 ) + ” b''+ ” 0 ”+CHR$ ( 2 7 ) + ” 
c “ + " 1 ” 

< 29 > 250 1 

<98> 260 '* Felder und Variablen belegen * 

<33 7 270 ' 

< 73 > 280 m%=32 76 7:bmax*=0 

< 36 > 290 DIM name$(20),dr*(20),la(20) 

<11> 300 OIM oa(20>,ho(20),br(20),r*(20) 

<12> 310 Cls$=CHR$(27)+"E"+CHR$(27)+“H":hom$=CHR$(27)+" 
H" 

< 30 > 320 1nv$=CHR$(27) + "p":nor$=CHR$(27) + "q'' 

<87> 330 con$=CHR$< 2 7 ) + ''e ” : co f f$=CHR$( 2 7) + “ f " 

<297 340 1$=CHR$(255):r$=CHR$(133) 

<27> 350 1i$=CHR$(133)+inv$+STRING$(43." ")+nor$+CHR$(1 
33) 

<89> 360 unten$=CHR$(131)+STRINGS(43,CHR$(138))+CHR$(13 
7) 

<19> 370 normsc r$=CHR$(27) + "X”+CHR$(32)+CHR$(32)+CHR$(6 
2)+CHR$(121) 

<11> 380 screenl i $=CHR$ ( 27 ) + ”X ,- + CHR$( 40 )+CHR$ ( 34)+CHR$ ( 

53) +CHR$(73) 

< 8> 390 screenlo$ = CHR$(27) + ’'X" + CHR$(36)+CHR$(32)+CMR$( 

63)+CHR$(76) 

<20> 400 screenri$=CHR${2 7) + ”X”+CHR$(40)+CHR$(78)+CHR$( 

54) +CHR$(74) 

<46> 410 SCreenro$=CHR$(27) + "X" + CHR$(36)+CHR$(77)+CHR$( 
63)+CHR$(76) 

<42 7 420 Se1ng$=li$+r$+inv$+” Name:"+STRING$(16.1 $) + "La 
ufwerK:" + STRING$(12,1 $)+nOr$+r$ + r$+inv$+" Linker A 
bstand: ”4-STRING$ ( 6 , l$) + "Oberer Abstand: " + STRING$(6 
, l$)inor$+r$+r$Hnv$+" Höhe : " + STRING$(8 , l$) + "Brei t 
e:"+STRING$(9,1$)+“Rahmen:"+STRING$(6,1$)+nor$+r$+ 


1 1$ 

<84> 430 e1ng$=li$+r$+inv$+" Name:”+ STRING$(17,1 $) + ”Lau 
fwerk: '+STRING$(11,1 $)+nOr$+r$ +r$+inv$+" Format Br 
eite:"+STRING$(8,1$)+“Format Höhe:"+STRING$(8,1$)+ 
nor$+r$+li$ 

< 29 > 440 ‘ 

<32> 450 ’* Menüzeile drucken » 

< 33 > 460 ' 

<56> 470 PRINT C1 s$+CHR$ L13,4 ) + STRI NG$ ( 88 , CHR$ ( 138) )+CHR 

$ 1140 )+CHR$ ( 133 X+”, JL I ^nhal tsve^zei chn i s B^ild dru,, 
cken,, . Seite: "^E “rste1 len Speichern % ^aden.. 
EXIT "+CHR$(133) , . 

< 7 7 > 480 PRINT CHR$ (2?) + "Y" + CHR$(34)+CHR$(32)+CHR$( 131 ) 

+STRING$(88,CHR$(138))+CHR$(137) 

< 39 > 490 ' 

<13> 500 OELETE 100-490,520: '* Speicherplatz schaffen 

* 

<247 510 ' 

< 38 > 520 '* Funktionen definieren * 

< 28 > 530 ' 

<92> 540 DEF FNcc$=CHR$(27)+"D"+CHR$(27)+"N” 

<877 550 DEF FNrahmen$(ypX,xpX,1 $)=CHR$(27) + "Y"+CHR$(32 
+ ypX) + CHR$(32 + xpX)+CHR$(133) + inv$+i $ + STRING$(43-LE 
N<1$) ,CHR$(255))+nor$ + CHR$(133) 

<187 560 DEF FNpOS$(yp*,xpX)=CHR$(27)+”Y“+CHR$(32+ypX)+ 
CHR$(32+xpX) 


Listing “3D-Grafik, dieZweite. ' 


Listing '‘3D-Grafik, die Zweite...' 


CPC-820 KB 5,25 “ Floppy 

vollkompatibel zu BASIC, CPM u. CPM-Plus, hochwertiges Floppylaufwerk, benutzerlreundlich, in¬ 
ternes Metzteil, problemloser Anschluß, mit Bedienungsanleitung. 1 Jahr Garantie 

5,25' Teamdrive Super Diskeltenslation 820 KB. anschlußfertig f. 464. 664, 6128, 

Gehäuse siehe Abbildung, umschaltbar auf 180 KB, incl. Teamdrive-Maxi-Programm DM 369 , - 


jr WERDER NACHRICHTENTECHNIK l f 


LocoScript 8 JS * LocoSpell 8 * LocoÄail 8 * LocoKey 8 * LocoFont 8 * Keyboard Disk 

Extra Printer Driver * Character Set Disk»HALLARD 8 * 18 Bit / Nulti-user HALLAED 
locoNail Sorting Progran «RAM Kit PCH 82S6 * Hargitt Maker MB » Me+ * Superlype 

HasterPatk * StopPros »NewsDesk und säntliches Zubehör»Headdeaning Set 

Printer Cleaning Set »FH lffi für PCH 9512 * SBS «DO Screen Filter 
sowie unsere Iransporttasche für die komplette PCH Anlage 

!!! MIR HABEN ALLE FARBBÄNDER FÜR JIE PCH-SERU ZU SIIPERPREISEN !!! 

NOT-FUJI * ColowKbboiB * Carbon für PCll 9S18 

5,25" Teamdrive Floppy 2X180 KB, Seitenumschalter. anschluBfertig t 464,664, 6128, 

Gehäuse siehe Bild DM 309 - 

JOYCE 720 KB 5,25“ Floppy *— ■ 

Teamdnve Diskenenstat*on. Gehäuse siehe Bild, C fl 

internes Netzteil, komplett mit Anschlußkabel u. 

Anleitung, problemlos und schnell anschließbar, 

incl Umschalter für MS-Copy DM 369 , _ 

Spezialkabel f, Joyce Plus (8512) mit Umschalter vom 3” Laufwerk intern zum 5,25” 

MS-Copy: sehr nützliches Programm zum Kopieren von CPM auf MS-DOS 


fgbb Wenn Sie Fragen haben. HOILINE No,-Fr, 9-11414-18 Uhr «■QgttT1 
lij®3 Besuchsteroine nur nach telefonischer Uereinharung! 

Preise zzgt Porto u Verpackung, Versand p N N Liste kostenlos 




Bramfelder Chaussee 215/HH 7 1 J. 

■ PL Tel. : 040-641 17 79 JA 

Fax : 040-64t 17 76 

Krebs electronic 

Datentechnik - Computer - Hardware u. Software 

6751 Weiierbach, Tel. 06374 - 6878 

[ 
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< 65> 


< 38 > 

< 76> 
<23> 

< 17 

< 17> 


<26> 

< 44 > 
<687 

< 82 > 

< 5 > 

< 69 > 

< 41 > 

< 2 > 
< 26 > 
< 16> 

< 38 > 

< 59 > 

< 6 4 > 
<397 

< 77> 
<567 
<327 

< 72> 

< 8 > 

< 9 5 > 

<11> 
<28 > 

< 16> 

< 43 > 

< 1 3 > 

< 66 > 

< 20 > 

< 36 > 

< 5 4 > 

< 28> 

< 32> 

< 87 

< 36 > 
<44> 

<90> 

< 49 > 
<34 7 

< 50 > 

< 41 > 
<467 

< 30> 

<25 > 

< 2 6 > 

< 1 7 > 

< 8 > 

< 51 > 

< 66 > 

< 9 > 
<55 7 
<98 > 

< 0 > 

< 7 7 > 

< 1> 
< 2 > 
< 60 > 
< 21 > 

< 71 > 

< 3 3 > 

< 12 > 

< 93 > 

< 4 5 > 

< 0 > 

< 44 > 

< 44 > 

< 9 7 

< 75 > 

< 47 > 

< 79 > 

< 9 2 > 
<81 > 

< 98 > 

< 86 > 


570 DEF FNmoss$(ypX,xp»,i$)=FNpos$(ypX,xpX)+CHR$(1 
34)+STRING$(43,CHR$(136))+CHR$(140)+FNpOsS(yp*+1,* 
pX)+CHR$(133)+" " + i$+STRING$((43—LEN(i$)) — 1, ")+C 

HR$(133)+CHR$(135)+STR1NG$(43,CHR$(138)>+CHR$(141) 
580 ' 

590 '* Hauptmenü * 

600 ' 

610 PRINT cof f $ ; nor$ ; narmscr$ .. . 

620 PRINT CHR$(133).+ " JL I Inhaltsverzeichnis jrB b ild 
drucken. „ . Seite: "^E ^rstel 1 en ^pe i che rn ^"L^aden. 
. -“-EXIT b " + CHR$( 133) . . 

630 match$="I8ESL"+CHR$(27):GOSU8 3630 
640 0N antw GOSUB 720,1890,1340,960.980,660 
650 GOTO 610 
660 OPTION FILES "m" 

670 PRINT normscr$;nor$;con$;c1s$ 

680 PRINT CHR$(27)+"b"+"l”+CHR$(27)+"c"+"0":EN0 
690 ' 

700 '* Inhaltsverzeichnis zeigen * 

710 JL L 

720 PRINT FNpos$(1,2);1nv$; Inhaltsverze1chnis e ' 

730 PRINT screen10$;nor$;C0n$ 

740 PRINT FNmess$(0,0,"Laufwerk:. Dateien:”) 

750 IF bkX = l THEN 800 

760 FOR ypX=3 TO 25 

770 PRINT FNrahmen$(ypX,0,“") 

780 NEXT 

790 PRINT FNpos$(ypX,0);unten$;:bkX=l 
800 1X = 1:ypX=l:xpX=12:GOSUB 2430 
810 i$=UPPER$(i$) 

820 IF NOT (i$=“A" OR i$="M") THEN 800 ELSE Drive$ 

= 1$ 

830 OPTION FILES Drive$ 

840 1X=1:ypX=l:xpX=28:GOSUB 2430 
850 1$=UPPER$(i$) 

860 IF i$="S" THEN i$="PGE" ELSE i$="PRN" 

870 IF NOT FIND$("*."+i$)="" THEN 900 

880 PRINT FNmeSS$(0,0 , "Kei ne "+i$+"-Dateien in Lau 

fwerk "+Drive$+". !") 

890 GOTO 920 

900 PRINT FNmessJ(0,0,i$+"-Dateien Laufwerk "+Driv 

e$+":") 

910 bkX=0:PRINT screen1i$;inv$;:FILES "*."+i$ 

920 a*=FRE(""):RETURN 
930 ' 

940 '* Seite speichern / laden * 

950 • 

960 IF bmaxX=0 THEN RETURN ELSE:okX=1:i$="Seite sp 
ei ehern:" HL 

970 PRINT FNpos$(1,60);invJ+'-^Speiehern b "+nor$:GOT 
0 1000 

980 okX=0:1$="Sei te laden:" .. . 

990 PRINT FNpos$( 1,72) ; inv$+' ,JL Laden b "+nor$ 

1000 PRINT screenro$;nor$ 

1010 PRINT FNmessJ(0,0,i$) 

1020 PRINT FNpos$(3,0);1i$ 

1030 PRINT FNrahmen$(4,0," Laufwerk:"+STRING$<10,C 
HR$(255)) + "Name:"). 

1040 PRINT FNpos$(5,0);1i$;FNpos$(5,0);unten$;inv$ 
1050 1X=1:ypX=4:xpX=12:GOSUB 2430 
1060 IF baCkX=l THEN 1300 

1070 IF UPPER$(i$)="M" THEN:Orive$="M":GOTO 1090 
1080 Drive$="A" 

1090 PRINT FNpos$(4,12);0rive$ 

1100 1X = 8:ypX=4:*pX=27:GOSUB 2430 

1110 IF backX=l THEN 1050 

1120 IF 1$="" THEN 1100 ELSE dname$=1$ 

1130 OPTION FILES Drive$ 

1140 PRINT nOr$:IF OkX=l THEN 1230 
1150 

1160 IF FIND${dname$+".PGE”)="“ THEN 1280 
1170 zaX=0:OPEN "I",1,dname$+".PGE" 

1180 WHILE NOT (EOF(1 ) ) 

1190 zaX=zaX+l 

1200 INPUT #l,name$(zaX).drX(zaX),la(zaX),oa(zaX) , 
ho( zaX),br< zaX),rX(zaX) 

1210 WENO:CLOSE 1:bmaxX=zaX:GOTO 1300 
1220 * 

1230 OPEN "0",1,dname$+".PGE" 

1240 FOR zaX=1 TO bmaxX 

1250 WRITE *1,name$(zaX),drX(zaX),la(zaX),oa(zaX), 
ho(zaX),br(za*), r%( zaX) 

NEXT zaX:CLOSE 1:GOTO 1300 

PRINT FNmess${0,0Datei nicht vorhanden !") 
i$=INPUT${1) 

aX=FRE(""):PRINT cls$:RETURN 
'* Seite erstellen * 

PRINT FNpos$(l,48);i n v$ + "'^‘E rstel 1 en 


1260 

1270 

1280 

1290 

1300 

1310 

1320 

1330 

1340 


<29 > 

< 74> 

< 14> 

< 4 7 > 

< 2 7 > 

< 9 7 > 

< 5 > 

< 23 ) 

< 15 > 

< 23 > 

< 0 > 

< 73 > 
<22> 

< 51 > 

< 4 5 > 

< 66 > 

< 65 > 
<37> 
<11> 

< 56> 

< 3 > 

< 98 > 

< 25> 

< 64 > 

< 33 > 

< 14 > 

< 6 > 
< 80 > 
<737 

< 85> 

< 95 > 

< 75> 

< 70 > 

< 92 > 

< 5 > 

< 69 > 

< 82 > 

< 5 7 > 

< 10 > 

< 13 > 

< 49 > 

< 75 > 

< 55 > 

< 4 3 > 

< 1 > 
<51 > 

< 74 > 
<687 

< 76> 

< 9 > 

< 2 8 > 
< 18> 
< 20 > 

< 2 4 > 
<157 

< 68 > 

< 6 4 > 

< 46 > 
<977 
<247 
<317 

< 67 
<837 
<957 
<60 7 

< 847 
<517 
<347 
<377 
<177 
<727 
<727 
<587 
<737 
<747 

< 6 B 7 
<437 
<957 
<367 
<617 

<697 

<537 

<217 

<307 

<377 


1350 IF NOT bmaxX=0 THEN koX=l ELSE:koX=0:zaX=l 
1360 PRINT screenro$;nor$ 

1370 IF bmaxX=20 THEN 1820 

1380 PRINT FNmess$(0,0,"Seite eingeben:. 

"+STR$(zaX)> 

1390 PRINT FNpos$(2,0);Seing$ 

1400 PRINT FNpos$(8,0);unten$; 

1410 PRINT CHR$(2 7) + "J" 

1420 IF koX=l THEN 1760 
1430 PRINT screenri$;inv$ 

1440 lX=3:ypX=0:xpX=7:GOSUB 2430 
1450 IF backX=l THEN 1850 
1460 namej(zaX)=i$ 

1470 1 X= 1 :ypX=0:xpX=32:GOSUB 2430 
1480 IF backX=l THEN 1440 

1490 IF UPPER$(i$)="M" THEN:drX(2a*)=77:GOTO 1510 
1500 d rX(zaX) = 65 

1510 PRINT FNpos$(0,32);CHR$(drX(zaX)) 

1520 ypX=l:xpX=l7:GOSUB 2610 
1530 IF backX=l THEN 1470 
1540 IF v<0.4 OR v720.6 THEN 1520 
1550 1a(zaX)=v 

1560 ypX=l:xpX=38:GOSUB 2610 

1570 IF bac kX=1 THEN 1520 

1580 IF v < 2.3 OR V726.3 THEN 1560 

1590 oa(zaX)=v 

1600 ypX=2:xpX=7:GOSUB 2610 

1610 IF backX=l THEN 1560 

1620 IF (oa(zaX)-2.3-v)<0 THEN 1600 

1630 ho(zaX)=v 

1640 ypX=2:xpX=22:GOSUB 2610 

1650 IF backX=l THEN 1600 

1660 IF (1a(zaX)+0.4+v)720.6 THEN 1640 

1670 br(zaX)=V 

1680 lX=l:ypX=2:xpX=38:GOSUB 2430 
1690 IF baCkX=l THEN 1640 

1700 IF UPPER$(i $) = " J " THEN rX(zaX)=254 ELSE rX(za 
X)=47 

1710 PRINT screenro$;nor$:aX=FRE("") 

1720 PRINT FNmess$(0,0,"Alles Okay ?") 

1730 match$="JN":G0SUB 3630 

1740 IF antw=2 THEN:aX=FRE(""):GOTO 1360 

1750 bmaxX=zaX:IF bmaxX=20 THEN L820 „ , m , 

1760 kOX=0 : PRI NT FNmejSS$C 0,0,''-Scheiter ^S^hen D 

rucken. J 'EXIT t ") 

1770 match$="SDW"+CHR$(27):GOSUB 3630 
1780 IF antw=3 THEN:zaX=bmaxX+1:GOTO 1380 
1790 IF antw=4 THEN 1850 
1800 ON antw GOSUB 2270,2860 
1810 GOTO 1760 .. , 

1820 PRINT. FNmass$(0,0," JL D fc rucken. 

. JL EXIT fc " ) 

1830 match$="0"+CHR$(27):GOSUB 3630 
1840 IF antw=l THEN:GOSUB 2860:GOTO 1820 
1850 PRINT screenroj;c1s$:RETURN 
1860 ' 

1870 ’* Bild drucken * 

1880 ' I, I 

1890 PRINT FNpos$( 1 , 23) ; i nv$ + ""^*"8i 1 d drucken b " 

1900 PRINT screenro$;nor$ 

1910 PRINT FNmessJ(0,0,"Bi 1d eingeben:“) 

1920 PRINT FNpos$(2,0);eing$ 

1930 PRINT FNpos$(7,0);unten$; 

1940 PRINT CHR$(2 7) + "J" 

1950 PRINT sc reen riJ;inv$ 

1960 1X=3:ypX=0:xpX= 7:GOSUB 2430 
1970 IF backX=l THEN 2170 
1980 dname$=1$ 

1990 1X=1:ypX=0:xpX=33:GOSUB 2430 
2000 IF backX=l THEN 1960 

2010 IF UPPER$(i$)="M" THEN:Orive$="M":GOTO 2030 
2020 Drive$=“A" 

2030 PRINT FNpOs$(0,33);Drive$ 

2040 ypX=l:xpX=16:GOSUB 2610 

2050 IF backX=l THEN 1990 

2060 IF v71 THEN 2040 ELSE faktx = v 

2070 ypX=l:xpX=36:GOSUB 2610 

2080 IF backX=l THEN 2040 

2090 IF v 71 THEN 2070 ELSE fakty = v 

2100 PRINT screenroj;norj:aX=FRE("") 

2110 PRINT FNmess$(0,0,"Alles Okay ?") 

2120 match$="JN":GOSUB 3630 
2130 IF antw=2 THEN 1890,, , 

2140 PRINT. FNme.ss$(0,0, " JL D b rucken. 

."^EXIT ) 

2150 match$="D"+CHR$(27):GOSUB 3630 
2160 IF NOT antw=2 THEN 2180 
2170 PRINT screenro$;c1s$:RETURN 

Z i. B °l = PR1 Ü T FN, ^ ess ® (0 > 0 * " 0itte p ap’ er e 1 n 1 egen 1... 
2190 match$="0"+CHR${27):G0SUB 3630 


Listing ''3D-Grafik, die Zweite..." 


Listing "3D-Grafik, die Zweite 
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<4B> 

< 84> 

< 87 > 

< 39 > 

< 36 > 

< 5 6 > 

< 7 > 

< 37 > 
<13> 

< 12 > 

< 33 > 

<93> 

<53> 

< 67 > 

< 3> 

< 89 > 


<21> 

<54> 

<16> 

< 56 > 

< 59> 

< 68 > 
<98> 
< 68 > 

< 5 > 

< 74> 

< 44 > 

< 62 > 
<S1> 

< 14> 
<S1> 

< 21 > 

< 9 > 

< 1 > 
<25> 

< 29 > 

< 46 > 
<27> 

< 65 > 

< 2 6 > 

< 9 6 > 

< 71 > 

< 3> 

< 82 > 

< 79> 
<68> 

< 63 > 

< 5 8 > 

< 15 > 
<80> 

< 22 > 
<36> 

<85> 

< 65 > 

< 19 > 

< 74> 

< 38 > 
<75> 

< 5 6 > 

< 4 7 > 

< 77> 

< 61 > 

< 72> 
<10> 
<75> 

< 16> 

< 38 > 

< 45 > 

< 9 7 > 

< 73> 

< 1 > 

< 69 > 

< 45 > 


2200 IF antw=2 THEN 2170 

2210 back%=0:posxX=0:posyX=0:rahmenX=l 

2220 GOSUB 4340:GOSUB 3070 

2230 XF backX=l THEH:GOSUB 4480:GOTO 2170 

2240 GOSUB 3890:GOSUB 3710 

2250 GOSUB 4480:GOTO 2140 

2260 ' 

2270 '» Seite sehen * 

2280 ' 

2290 PRINT screenro$;cls$;nor$ 

2300 IF bmax%=l THEN i$=" Eintrag" ELSE i$=" Eintr 
äge" 

2310 PRINT FNmess$(0,0,"Seite sehen:. 

.. "+STR$(bmaxX) +1 $) 

2320 PRINT FNpOs$(3,0>;1i$ 

2330 ypX=4 

2340 FOR za%=1 TO bmaxX 

2350 PRINT FNpos$(ypX.O);CHR$(133)+inv$+" "+CHR$(d 
rX[zaX))+":. "+CHR$(rx(zax))+". '"+name$(zaX)+STRI 

NG$(3-LEN(name$(zaX))," ")+“.prn‘ 

2360 PRINT USING ta(zaX>;oa(zaX);ho(zaX); 

br(zaX ) ; 

2370 PRINT " "+nor$+CHR$(133) 

2380 ypX=ypX+1:NEXT zaX 
2390 PRINT FNpos$(ypX, 0) ; 1 i $ 

2400 PRINT FNpos$(ypX+1,0);unten$ 

2410 aX=FRE(""):RETURN 
2420 ‘ 

2430 '* Buchstaben eingeben * 

2440 1 

2 450 backX=0:stX = 0:1$="":11 $=" " 

2460 PRINT FNpOs$(ypX,xpX);i$;con$; 

2470 11$=(INPUT$(1)) 

2480 WHILE ASC(1i$)<122 ANO A5C(ii$)>96 AND stX<1X 
2490 StX=StX + 1:1$=1$+1 1 $ 

2500 PRINT FNpos$(ypX,xpX);i$; 

2510 1i$=(INPUT$(1)):WEND 

2520 IF ii$=CHR$(8) THEN:PRINT coff$:backX=1:RETUR 
N 

2530 IF NOT ASC(ii$)=127 THEN 2590 
2540 IF LEN(i$)>l THEN 2560 
2550 PRINT FNpos$(ypX,XpX) ; 1 $ :GOTO 2450 
2560 1$=LEFT$(1$,LEN(i$)-l) 

2570 Stx=st*-1:PRINT FNpos$(ypX,st*+xpX);1 $ 

2580 GOTO 2460 

2590 PRINT coff$:RETURN 

2600 1 

2610 '* Real eingeben * 

2620 ' 

2630 PRINT FNpos$(ypX,xpX);STRING$(4,CHR$(255));CO 
n$i 

2640 backX=0:stX=0:1:koX=0 
2650 PRINT FNpo s$(y pX,xpX) ; 1 $ ; 

2660 1i$=(INPUT$ C1)) 

2670 WHILE ASC(11$)>47 ANO ASC(11$)<58 ANO stX<4 
2680 stX=stX+1:1$=1$+i1$ 

2690 PRINT FNpos$(ypX,xpX);1$; 

2700 1i$=(INPUT$(1)):WEND 

2710 IF NOT ((11$=“." OR 11$=".") AND koX=0) THEN 
2740 

2720 kOX=1:stX=stX+1:1$=1$+"." 

2730 GOTO 2650 

2740 IF 11$=CHR$(8) THEN:PRINT coff$:backX=1:RETUR 
N 

2750 IF NOT ASC(ii$) = 12 7 THEN 2820 
2760 IF LEN(i$)>l THEN 2780 
2770 PRINT FNpos$(ypX,xpX);1 $:GOTO 2640 
2780 1$=LEFT$(1$,LEN(1 $)-1) 

2790 IF INSTR(i$,",")=0 THEN koX=0 

2800 stX=stX-l:PRINT FNpos$(ypX,+stX + xpX);1 $ 

2810 GOTO 2650 

2820 v=VAL(1$):PRINT coff$:RETURN 
2830 ’ 

2840 '* Seite drucken * 

2850 ' 

286Q PRINT FNmess$(0,0,"Bitte Papier einlegen !... 
■“"O ^k . -“-EXIT ^ '') 

2870 match$="0"+CHR$(27):G0SUB 3630 
2880 IF antw=2 THEN RETURN 
2890 GOSUB 4340:za2X=l:backX=0 
2900 WHILE NOT (za2X>bmaxX) 

2910 dname$=name$(za2X) 

2920 IF drX(za2X)=77 THEN Orive$="M" ELSE Drive$=" 
A” 


< 78 > 

< 70 > 
< 11 > 

< 4 7 > 

< 48 > 

< 86 > 
< 68 > 


2930 pOSxX=(ROUND(1a(za2X),1)-0.4)*1620 
29 40 posyX=(26.3-ROUND(oa(za2X>,1))*1365 
2950 faktx=R0UN0(br{za2X),l)/20.2 
2960 fakty=ROUND(ho(za2X),l)/24 

2970 IF rX(za2X)=254 THEN rahmenX=l ELSE rahmenX=0 

2980 GOSUB 3070:IF NOT backX=l THEN 3000 

2990 IF za2X >1 THEN 3010 ELSE:GOSUB 4480:RETURN 


Listing "30-Grafik, die Zweite * 
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Aus dem Data Becker-Angebot 

Das Große LOGO-Buch zu CPC und Joyce 

LOGO kann mehr, als Sie denken. LOGO ist heute eine anerkannte Sprache 
bei vielen ehrgeizigen Programmprojekten. Das reicht bis hin zur Erstellung 
von Kl-Programmen. Hier das Buch für CPC- und Joyce-Besitzer, die viele Vor¬ 
teile dieser Sprache kennenlernen wollen. Um nur einige Stichworte zu nen¬ 
nen: Listenverarbeitung, Prozeduren. Rekursionen, Sortierroutinen, Masken¬ 
generator. Nutzen Sie diese Sprache für Ihre eigenen, ehrgeizigen Programm¬ 
ideen. 

410 Seiten Best.-Nr. 417 DM39,-* 

Das große Joyce-Buch 

Von der Textverarbeitung zum Programmieren - das bietet Ihnen das große 
Joyce-Buch. Hier werden alle Themen abgedeckt, die für Joyce-Nutzer inter¬ 
essant sind. Spezielle Anwendungen mit LogoScript. Personalisieren des Sy¬ 
stems mit CP/M. Multiplan auf dem Joyce, Uhr in BASIC, Grafikprogrammie¬ 
rung in LOGO und viele andere interessante Themen warten auf Sie im gro¬ 
ßen Joyce-Buch. 

418 Seiten Best.-Nr. 418 DM59, — * 


Joyce 


Bücher-Kiste 

Programmierwissen pur im Westentaschenformat 
Führer zum Joyce 

Best.-Nr. 450 DM 29,80* 

Führer zum CP/M 

Best.-Nr. 452 DM 19,80* 

Joyce für Einsteiger 

Wer einen Joyce gekauft hat, der möchte schnell und effektiv mit diesem 
Rechner umgehen. Joyce für Einsteiger wird dieser Anforderung voll gerecht. 
Von Kleinigkeiten, wie dem Anschluß des Gerätes oder dem Kopieren der Sy¬ 
stemdiskette bis hin zur optimalen Arbeit mit LocoScript finden Sie alles Not¬ 
wendige. Dazu eine kleine Einführung in BASIC und LOGO und natürlich in 
das Betriebssystem von CP/M-Plus. 

248 Seiten Best.-Nr. 453 DM 29, - * 

Aus dem Franzis Verlag-Angebot 

Den Joyce programmieren 

Der Autor hat es sich zur Aufgabe gemacht, den Joyce als vollständigen Com¬ 
puter zu beschreiben. Er vermittelt dem Joyce-Besitzer eine Menge interes¬ 
santer und nicht alltäglicher Kenntnisse. Außerdem ist das Buch angefüllt mit 
Programmlistings, die für den fertigen Einsatz konzipiert sind. Aus diesen Li- 
stings lassen sich zahlreiche ausgefeilte Programmtricks entnehmen Der Auf¬ 
bau und die Bedienung des CP/M-Betriebssystems werden ebenfalls für den 
Joyce-Anwender, der sich nicht mit einfacher Textverarbeitung begnügen will, 
behandelt. Insgesamt stellt das Buch eine interessante Programmierliteratur 
für den technisch interessierten Joyce-Eigner dar. 
ca. 160 Seiten Best.-Nr. 425 DM 38. - * 



D M V - Angebot 

Praktische Textverarbeitung mit Joyce 

Ein Buch/Disketten-Paket. Der Autor Jürgen Siebert zeigt in diesem Buch 
Möglichkeiten der Textverarbeitung auf, die Sie von LocoScript nicht erwartet 
hätten... Von der Pike auf werden Sie an den Umgang mit Schablonen und 
Standardlayout herangeführt. Einige Abstecher führen Sie anhand anschauli¬ 
cher Beispiele an Textverarbeitung und CP/M (ED/Wordstar) heran. 

Aus dem Inhalt: 

- LocoScript Spezial - Softwaretraining für Fortgeschrittene 

- Fehler im System: Wie rette ich meinen Text? 

- Joyce-Tasteninstailationsdatei für das Programm Wordstar 

- Aleatorische Poetik: Der Computer dichtet 

Auf Diskette: Ober 50 Dateien mit Schablonen, Briefen, Postkarten. Serien- 
Rundschreiben, Formularen, Etiketten, Druckbeispielen, Schriften, 
Bildschirm-Installationen uvm. 

Leinen-Hardcover, 207 Seiten, 

3"-Diskette Best.-Nr. 401 DM89, — * 

Aus dem Müthig-Verlag-Angebot 

Joyce - Das Praxisbuch zur Textverarbeitung 

Dieses Buch füllt einerseits die Lücken, die die zum Joyce mitgelieferten 
Handbücher noch offen gelassen haben, und gibt andererseits viele Tips zur 
praktischen Arbeit mit LOCO-SCRIPT. 

Sie erfahren, wie man Briefköpfe erstellt, Formulare ausdruckt, eine Phrasen¬ 
datei anlegt, mit dem Drucker kleine Firmen-Logos erstellt oder die verschie¬ 
denen LOCO-SCRIPT-Optionen effektiver nutzt. So kann das offensichtlich 
fehlende Mail-Merge doch mit Hilfe eines kleinen BASIC-Programms nach¬ 
empfunden werden. Zahlreiche Hardcopies und eine Übersicht sämtlicher 
LOCO-SCRIPT-Menüs mit den zugehörigen Untermenüs helfen sowohl Neu¬ 
lingen als auch -alten Hasen« gleichermaßen. 

125 Seiten, Best.-Nr. 419 DM 35, - * 

* Unabhängig von der Anzahl der bestellten Bücher berechnen wir für das Inland 3, - DM 
bzw. für das Ausland 5,- DM Porto und Verpackung. Bitte benutzen Sie die Bestellkarte. 

DMV-Verlag ■ Fuldaer Str. 6 • 3440 Eschwege 
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[-JOYCE 


< 6 > 
<39 > 

< 54 > 

< 92 > 

< 9 7 > 

< 54 > 

< 4 > 

< 12 > 

< 7 > 

< 7 > 

< 22 > 
< 16 > 

< 53> 

< 93 > 

< 75 > 

< 3> 

< 10 > 

< 9 > 

< 49 > 

< 4 > 

< 21 > 
<11> 
< 12 > 
< 10 > 

< 96 > 

< 49 > 

< 1 7 > 
<25> 

< 41 > 
<42> 
<S1> 
<22> 

< 2 > 

< 14> 
<98> 

< 7 > 

< 40 > 

< 13 > 

< 73 > 

< 17 > 

< 62 > 

< 43 > 

< 78> 
<81> 
<11> 

< 4> 

< 12 > 

< 70> 

< 18 > 
< 1> 

< 44> 

< 31 > 

< 39 > 
<9 7 > 

< 65 > 

< 20 > 
< 28 > 
< 60 > 
<31 > 
<ao> 
<n> 

< 95 > 

< 4> 

< 77 > 

< 71 > 
<10> 

< 61 > 
<88 > 
< 16> 
< 20 > 
< 0> 
<13> 
<52> 
< 20 > 

< 69 > 

< 5 4 > 

< 93> 
<93> 
<81 > 

< 3 > 

< 56> 
<23> 

< 83 > 

< 94> 

< 32 > 

< 81 > 
< 95 > 


3000 za2X=za2X+l:W£ND 

3010 PRINT FNmessJ ( 0,0 , ". Jetzt wird gedru 

c kt !") 

3020 GOSUB 3890:GOSUB 4480 
3030 OPTION FILES Drive$:RETURN 
3040 ' 

3050 '* Drucken * 

3060 1 

3070 OPTION FILES Drive$ 

3080 IF NOT FIND$("1"+dname$+".PRN")="" THEN 3110 


3090 PRINT FNmesa$(0,0,"Druckdatei, '1"+dname$+".P 
RN', nicht vorhanden !") 

3100 back%=l:1$=INPUT$(l):RETURN 

3110 PRINT FNmess$ (0,0,". Bitte warten 


! ”) 

3120 OPEN "I" , 1, "l'‘ + dname$+” . PRN" 

3130 INPUT #1,firstX:CLOSE 1 
3140 IF first*=-lllll THEN 3490 
3150 ‘ 

3160 '* Unkomprlmlerte Dateien * 

3170 ' 

3180 zaX*l 

3190 WHILE NOT FIND$(MID$(STR$(zaX),2,3)+dname$+“. 
PRN")="" 

3200 zalX=-l 

3210 OPEN "I",1,MID$(STR$(zaX),2,3) + dname$ +".PRN" 
3220 INPUT #1,drmX,fbX,fsX.wrmX 
3230 WHILE NOT (EOF(1)) 

3240 zalX=zal*+2 

3250 INPUT #l,p1X(zalX),piX(zalX+l) 

3260 piX(zal%)=p1X(zalX)*faktx+posxX 
3270 piX(zalX+-l) = piX(zalX+l)*fakty+posyX 
3280 WEND 

3290 zmaxX=(zalX+l)/2 

3300 CLOSE 1:GOSUB 3380:zaX=zaX+l 

3310 WEND 

3320 OPTION FILES "m" 

3330 IF rahmenX=l THEN GOSUB 3720 
3340 RETURN 
3350 ' 

3360 '* Parameter einstellen und übergeben * 

3370 ' 

3380 OPTION FILES "M" 

3390 GOSUB 4080 
3400 GOSUB 4150 
3410 cont r 1X ( 1) =d rmX 
3420 contrlX(2)=2maxX 
3430 GOSUB 4520 
3440 OPTION FILES DrlveS 
3450 RETURN 
3460 ' 

3470 '* Komprimierte Datei * 

3480 ' 

3490 OPEN "I" ,2, " 1"+dname$+".PRN" - 
3500 INPUT #2,firstX 
3510 WHILE NOT (EOF(2)) 

3520 INPUT *2,drm%,fbX.fsX,wrmX,zmaxX 
3530 FOR zalX=I TO (zmaxX*2) STEP 2 
3540 INPUT #2,piX(zalX),p1X(zalX+l) 

3550 piX(zalX)=piX(zalX)*faktx+posxX 
3560 piX( 2 alX+l)ap 1 X(zalX+l)*fakty+posyX 
3570 NEXT zalX:GOSUB 3380 
3560 WEND:CLOSE 2 
3590 OPTION FILES "M" 

3600 IF rahmenX=l THEN GOSU8 3720 
3610 RETURN 
3620 1 

3630 '» Taste holen * 

3640 antw$=INKEY$ 

3650 WHILE antw$="" 

3660 antw$=INKEY$:WEND 

3670 antw=lNSTR(match$,UPPER$(antw$)) 

3680 IF antw=0 THEN 3640 
3690 RETURN 
3700 ' 

3710 '• Rahmen zalchnen * 

3720 wrm*=l:GOSUB 4150 

3730 xl=(mX* faktx) + posxX 

3740 y1=(mX* fa kty) + posyX 

3 750 x2=(mX*faktx)fposxX:y2=posyX 

3760 GOSUB 3960 

3770 xl=posxX:x2=posxX:y2=posyX 

3760 yl=(mX»fakty)+posyX 

3790 GOSUB 3960 

3800 xl*x2:yl=y2:y2=posyX 

3810 x2=(mX*faktx)+posxX 

3820 GOSUB 3960 

3830 xl=posxX:y1=(mX*fakty)+posyX 
3840 x2=(m%*faktx)+posxX 
3850 y2=(mX*fakty)+posyX 
3860 GOSUB 3960 


<18> 3870 RETURN 
<26> 3880 ' 

< 30 > 3890 '* Nullposition * 

<83> 3900 wrm%=4:GOSUB 4150 

<36> 3910 contrlX(l) = 6:contrlX(2)=2 

< 72 > 3920 piX(l)=0:p1X{2)=32767 
<64> 3930 p1X(3)=0:p1X(4)=0 

<96> 3940 GOSUB 4520:R£TURN 
<19 > 3950 1 

<96 > 3960 '« draw 1 ine * 

<54> 3970 contrlX(l) = 6:contrlX(2)=2 

< 1> 3980 p1X(l)=xl:piX(2)=yl 

< 3> 3990 p1X(3)=x2:p1X(4) = y2 
<67> 4000 GOSUB 4520:RETURN 

< 89 > 4010 ' 

<86> 4020 '* set linetype * 

<11> 4030 contrX(l)*15:contrX(2)=0 
<15> 4040 intinX(l) = ltX:GOSUB 4520 
<96> 4050 RETURN 

< 5 > 4060 1 

<29> 4070 '* set fillstyle * 

<41> 4080 contrlX(1)=23:contrlx(2) = 0 
<24> 4090 intinX(1)=fb%:GOSUB 4520 

< 3 7> 4100 COntr1X(l)=24:contrlX(2)=0 
<93> 4110 1ntinX(l) = fsX:GOSUB 4520 

< 69 > 4120 RETURN 

< 40 > 4130 PRINT FNcl(5) 

< I> 4140 ' 

<83> 4150 '* set writingmode * 

< 36 > 4160 cont r1X(1) = 32:cont r1X(2)=0 

< 72 > 4170 intlnXf1)=wrmX:GOSUB 4520 

< 8> 4180 RETURN 
<16 > 4190 ' 

< 2> 4200 '* init GSX * 

<28> 4210 DIM pbX(5),contrlX(10),intinX(20) 

< 1> 4220 DIM piX{200),intOutX(45),ptsoutX(20) 

< 14> 4230 gdosX = 8iHBDF0 

< 6 7 > 4240 MEMORY gd.OsX-1 
<68> 4250 POKE gdOSX.14 

<64> 4260 POKE gdOsX+1,115 

< 46 > 4270 POKE gdOsX+2.195 
<67> 4260 POKE gdosX+3.5 

<91> 4290 POKE gdosX+4,0 
<13> 4300 deviceX=21:GOSUB 4330 
<90> 4310 RETURN 
<96> 4320 1 

< 45 > 4330 open workstation * 

< 96 > 4340 GOSUB 4440 

< 90 > 4350 contrlX(l)=l:contr1X(2) = 0 
<B4> 4360 contriX(4)=10 

<14> 4370 1ntinX(l)=deviceX 

< 21> 4380 RESTORE 4420 

< 1> 4390 FOR 1=2 TO 10 

< 6> 4400 READ int 1nX(i):NEXT 

< 78> 4410 GOSUB 4520:RETURN 

<97> 4420 DATA 1.1„1,1.1,1,2,6.1 

< 4 > 4430 ' 

<39> 4440 '* close workstation * 

<10> 4450 contrlX(l)=2:contrlX(2)=0 
<93> 4460 GOSUB 4520:RETURN 
<16> 4470 1 

<80> 4480 '* update workstation * 

<56 > 4490 contrlX(l) = 4:contrlX(2)=0 

< 7 7 > 4500 GOSUB 4520-.RETURN 

< 0> 4510 1 

< 38 > 4520 '* GDOS-aufruf * 

<39> 4530 pbX(l) = UNT(VARPTR(contrlX(1>)) 

< 2 > 4540 pbX(2)=UNT(VARPTR(IntinX(l))) 

<82> 4550 pbX(3) = UNT(VARPTRCplX(l))) 

< 39 > 4560 pbX(4)=UNT(VARPTR (1ntOUtX(1>)) 

<47> 4570 pbX(5) = UNT(VARPTR(ptSOUtX(1))) 

<88> 4580 CALL gdosX(gdosX,pbX(1)) 

<19 > 4590 RETURN 


LISTING 

< 15 > 

100 

< 8 6 > 

110 

< 39 > 

120 

<10> 

130 

< 54> 

140 

< 83> 

150 

< 85 > 

160 

< 98 » 

170 

< 3 > 

180 


FLSCREEN<, REMARK = >'<. 

‘************************************* 


' * . 

'* . Druckprogramm. 

'*. Bi 1dschlrmversion 


’* Bei Joyce-eigenem Bi 1dschlrmtrel-. 
'* ber bitte Zeile 3950 durch REM er- 
'* setzen !! !. 


1988 von Rainer Tessmann 


Listing “30-Grafik, die Zweite 


Listing ”3D-Grafik, die Zweife..." 
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< 89 > 

< 8 5 > 

< I8> 

< 23> 

< 7 5 > 

< 58> 

< 60 > 

< 31 > 

< 4 1 > 

< 35 > 

< 74 > 

< 5 4 > 

< 22 > 

< 91 > 

< 2 6 > 

< 35 > 

< 29 > 

< 2 3 > 

< 2 4 > 

< 42 > 

< 0 > 
<22 > 
<20> 

< 82 > 

< 12 > 

< 4 > 

< 1 > 

< 32 > 

< 5 8 > 

< 5 4 > 


< 39 > 

< 2 3 > 

< 2 4 > 

< 9 > 


< 68 > 

< 30 > 

< 44 > 

< 34 > 

< 98 > 

< 9 3 > 


<24> 
< 52 > 


< 25 > 

< 63 > 

< 29 > 

< 7 > 

< 4 5 > 


< 50 > 
<10> 

< 8 > 
< 88 > 

< 9 1 > 

< 5 6 > 

< 28 > 
< 8 > 

< 32 > 

< 22 > 

< 44 > 

< 65 > 

< 31 > 

< 45 > 

< 64 > 
<43> 


190 ’ *. 1000 Berlin 21. * 

200 . * 

2X0 '************************************** 

220 ‘ 

230 PRINT CHR$(27)+"E":CLEAR:aX=FRE(0) 

240 IF aX>10000 THEN 270 

250 PRINT CHR$(7);"Programm läuft mit Bildschirmtr 
eiber !":END 
260 ' 

270 '* INIT GSX / Statuszeile löschen * 

280 ' 

290 PRINT CHR$(27)+"X"+CHR$(37)+CHR$(33)+CHR$(53)+ 
CHR$(72):GOSUB 3810 

300 PRINT CHR$(27) + ’’0";CHR$(27) + "b" + "0' +CHR$(27) + " 
c"+“l“ 

310 ' 

320 '* Felder und Variablen belegen * 

330 ‘ 

340 mX=32767: bmaxX=0: Ori ve$="M" 

350 DIM name$(20) ,dr*<20) ,1a(2C) 

360 DIM oa(20),ho(20),br{20),rX(20) 

3 70 cla$=CHR$(27)+"E"+CHR$(2 7) + "H":hom$ = CHR$(27 ) + " 

H" 

380 inv$=CHR$(27) + ”p":nor$=CHR$(27) + ‘q ' 

390 con$=CHR$(27)+"e":coff$=CHR$(27)+"f" 

400 1$=CHR$(255): r$ = CMR$(133 ) 

410 1i$=CHR$(133)+inv$+STRING$(43," ">+nor$+CHR$(1 

33) 

420 unten$=CHR$(131)+STRING$(43.CHR$(138))+CHR$(13 
7) 

430 normscr$=CHR$(27)+"X'+CHR$(32)+CHR$(32)+CHR$(6 
2)+CHR$(121) 

440 screenl1$=CHR$(27)+"X"+CHR$!40)+CHR$t34)+CHR$( 

53)+CHR$(73) 

450 screenlo$=CHR$(27)+"X"+CHR$(36)+CHR${32)+CHR$( 
63)+CHR$(76) 

460 screenr1$=CHR$(27)+"X“+ CHR$(40)+CHR$(78)+CHR$( 

54 > +CHR$(74) 

470 screenro$=CHR$(27)+“X"+CHR$(36)+CHR$(77)+CHR$( 

63)+CHR$(76) 

480 Seing$=1i$+r$+inv$+" Name:" + STRING$(16,1 $) + "La 
ufwerk:" + STRING$(12,1 $) + nor$+r$+r$+1nv$t" Linker A 
bstand: " +STRI NG$ ( 6 , l$)+"Oberer Abstand: "+STRING$(6 
,l$)+nor$+r$+r$+1nv$+" Höhe:"+STRING$(8,1$)+"8reit 
e:"+STRING$(9,1$) + "Rahmen: M +STRING$(6,1$)+nor$+r$+ 
11$ 

490 ‘ 

500 '* Menüzeile drucken * 

510 ' 

520 PRINT cl sS + CHRltlS^+STRINGSfaa , CHR$( 138) )+CHR 

$ (14L0 )i+CHR$ (133 ).+" j~I “nha 1 ts.ve r2e i chn.i s«. Seit „ 

e: JL E ^rste 1 1 en -“’S k pe i che rn -“-L fc aden -“-Zweigen. 

EXIT *= " + CHR$ ( 133) . . 

530 PRINT CHR$(27)+"Y’+CHR$(34)+CHR$(32)+CHR$(131) 
+STRING$(88,CHR$(138))+CHR$(137) 

540 ' 

550 '* Funktionen definieren * 

560 ' 

570 DEF FNcc$=CHR$(27) + "D"+CHR$(27) + “N" 

580 DEF FNrahmen$ (ypX, xpX , 1 $ ) = CHR$( 2 7) +''Y" + CHR$ ( 32 
+yp*)+CHR$(32+xp*)+CHR$(133)+inv$+i$+STRING$(43-LE 
N(1 $ ) ,CHR${255))+ nö r$ + CHR$(133) 

590 OEF FNpos$(ypX,xpX)=CHR$(27)+"Y"+CHR$(32+ypX)+ 
CHR${32+xpX) 

600 OEF FNmess$(ypX , xpX, i$)=FNpos$(ypX, xpX)+CHR$( 1 

34) +STRING$(43,CHR$(138))+CHR$(140)+FNpOB$(ypX+1,X 
pX)+CHR$(133)+" " + 1$ + STRING${<43-LEN( i$ ) )-l , " ")+C 
HR$(133)+CHR$(135)+STRING$(43,CHR$(138))+CHR$(141) 
610 ’ 

620 '* Hauptmenü * 

630 ‘ 

640 PRINT coff$;nor$;normscr$ 

650 PRINT L CHR$(133) 1 +" L X I ^nhalts.yefzeichn.is.. S 

eite: Erstellen "^S ^pei ehern "u ^aden ^ei gen . . . . 

. ■ U 'EXIT fc " + CHR$( 133) . . 

660 match$="IZESL"+CHR$(27):GOSUB 3300 

670 ON antw GOSUB 750,2570,1370,990,1010,690 

680 GOTO 640 

690 OPTION FILES "m" 

700 PRINT normscr$;nor$;con$;cls$ 

710 PRINT CHR$(27)+"b"+"l"+CHR$(27)+"c"+"0":END 
720 ' 

730 ’* Inhaltsverzeichnis zeigen » 

740 ' JL L 

750 PRINT FNp03$(1,2);inv$; ' Inhaltsverzeichnis 

760 PRINT screenloJ;nor$;con$ 

770 PRINT FNmess$(0,0,"Laufwerk:. Dateien:") 

780 IF bkX=l THEN 830 

790 FOR ypX=3 TO 25 

B00 PRINT FNrahmen$(yp%,0,“") 

810 NEXT 
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< 9 > 

< 53 > 

<44 > 

< 89 > 

< 56 > 

< 28 > 
< 88 > 
< 2 > 

< 90 > 

< 8 > 

< 30 > 

< 38 > 
<B3> 

< 21 > 
< 28 > 

< 8 > 

< 7 > 

< 1 4 > 

< 20 > 

< 2 4 > 

< 72 > 
<11> 

< 62 > 
<41 > 

< 5 > 

< 71 > 

< 75 > 

< 74> 

< 94 > 

< 73 > 

< 62 > 
< 12 > 
<S6> 

< 78> 

< 42 > 

< 14 > 

< 73> 


820 PRINT FNpos$(ypX,0);unten$;:bkX=l 
830 1 S>= 1: y pX=l : xpX= 12 : GOSUB 2140 
840 1$=UPPER$(i$) 

850 IF NOT (i $ ='' A " OR i$="M") THEN 830 ELSE Drive$ 
= 1$ 

860 OPTION FILES Orive$ 

870 1X=1:ypX=l:xpX=28:GOSUB 2140 
880 i$=UPPER$(i$) 

690 IF i$="S" THEN 1$="PGE" ELSE i$="PRN" 

900 IF NOT FIND$("*. " + 1 $) = "" THEN 930 

910 PRINT FNmess$(0,0, "Keine " +i $+''-Datei en in Lau 

fwerk "+Drive$+". !") 

920 GOTO 950 

930 PRINT FNmess$(0,0,i$+"-Dateien Laufwerk "+Driv 
e$+" : ") 

940 bkX=0:PRINT screen11$;1nv$FILES " + 1$ 

950 aX=FR£(""):RETURN 
960 ' 

970 '* Seite speichern / laden * 

980 ' 

990 IF bmaxX=0 THEN RETURN ELSE:okX=l:i$="Seite sp 
ei ehern: " II L 

1000 PRINT FNpos$( 1,48) ; i nvJ+'^Speiehern t "+nor$:GO 
TO 1030 

1010 ok*=0:1$="Seite laden:" „ , 

1020 PRINT FNpos$( 1,60) ; 1 nv$+ ,,JL Laden fc "+nor$ 

1030 PRINT screenro$;nor$ 

1040 PRINT FNmess$(0,0,i$) 

1050 PRINT FNpos$(3,0);1i$ 

1060 PRINT FNrahmen$(4,0," Laufwerk:"+STRING$(10,C 
HR$(255))+ "Name:"). 

1070 PRINT FNpos$(5,0); 1i$;FNpos$(5,0) ;unten$;inv$ 
1080 1X=1: yp36=4 : xpX=12 : GOSUB 2140 
1090 IF back%=1 THEN 1330 

1100 IF UPPER$(i $) = "M" THEN : Dri ve$=''M" : GOTO 1120 
1110 Drive$="A" 

1120 PRINT FNpos${4,12);Drive$ 

1130 1X=8:ypX=4:xpX=27:G0SUB 2140 

1140 IF backx=l THEN 1080 

1150 IF i$="" THEN 1130 ELSE dname$ = i$ 

1160 OPTION FILES Drive$ 

1170 PRINT nör$:IF okX=l THEN 1260 
1180 ' 

1190 IF FIND$(dname$+".PGE")='"' THEN 1310 
1200 zaX=0:0PEN "I",1,dname$+".PGE" 

1210 VfHILE NOT (EOF(l)) 

1220 za*=zaX+l 

1230 INPUT #l,name$(zaX).drX(zaX),la(zaX),oa(zaX), 
ho fzaX),br(za*),r*(za*) 

1240 WEND:CLOSE I:bmax*=za*:GOTO 1330 
1250 ' 

1260 OPEN "0",1,dname$+".PGE" 

1270 FOR za*=l TO bmax* 

1280 WRITE #l,name$(zaX),dr*(zax),la(za*),oa(zaX), 
ho(zaX),br(za*),rX(za*) 

1290 NEXT zaX:CLOSE l:GOTO 1330 
1300 ' 

1310 PRINT FNmess$(0,0,"Datei nicht vorhanden !") 
1320 i$=INPUT$(I) 

1330 aX=FRE('"'):PRINT cls$:RETURN 
1340 ' 

1350 '* Seite erstellen * 

1360 ' n i 

1370 PRINT FNpos$(l,36);inv$+ '"^Erstellen 
1380 IF NOT bmaxX=0 THEN koX=l ELSE:ko*=0:za*=l 
1390 PRINT screenro$;nor$ 

1400 IF bmaxX=20 THEN 1870 

1410 PRINT FNmesst(0,0,"Seite eingeben:. 

"+STR$(zaX)) 

1420 PRINT F Npo s$(2,0);Seing$ 

1430 PRINT FNp05$(8,0);unten$; 

1440 PRINT CHR$(2 7) + "J" 

1450 IF kO*=l THEN 1800 
1460 PRINT screenr1 $;inv$ 

1470 1X=3:ypX=0:xpX = 7:GOSUB 2140 
1480 IF backX=l THEN 1900 
1490 name$( 2 aX)=i$ 

1500 1X=1:ypX=0:xpX=32:GOSUB 2140 
1510 IF backX=l THEN 1470 

1520 IF UPPER$(i$)="M" THEN:dr*(zaX)=77:GOTO 1540 
1530 drX(zaX)=65 

1540 PRINT FNpos$(0,32);CHR$(drX(zaX)) 

1550 ypX=1:xpX=17:GOSUB 2320 
1560 IF backX=l THEN 1500 
1570 IF v < 0.4 OR v>20.6 THEN 1550 
1580 1a(zaX)=v 

1590 ypX=l:xpX=38:GOSUB 2320 

1600 IF back*=l THEN 1550 

1610 IF v < 2.3 OR v >26.3 THEN 1590 

1620 oa(zaX)=v 

1630 ypX=2:xpX=7:GOSUB 2320 


Lisling “aD-Grafik, die Zweite...“ 


Listing "3D-Grafik, die Zweite " 
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<87> 

< 92 > 

< 62 > 

< 43 > 

< 77> 

< 9 6 > 

< 51 > 

< 12 > 

< 58 > 

< 78 > 

< 91 > 
<6 6 > 

< 64 > 

< 40 > 
<81> 

< 5 4 > 
<35> 

<30> 
<83 > 

< 90 > 

< 12 > 
<86> 

< 2 3 > 

< 9 7 > 

<67> 

< 13> 

< 40 > 

< 5 > 

< 58 > 

< 71 > 

< 45 > 

< 63 > 

< 75 > 
<23> 

< 53 > 

< 29 > 
<80 > 

< 30 > 

< 90 > 

<50> 

<64> 

< 0 > 
< 8 6 > 


< 18 > 

< 5 1 > 

< 13 > 
<25> 

< 56 > 

< 65 > 

< 95 > 

< 6 5 > 

< 2 > 

< 71 > 

< 41 > 

< 59 > 

< 48 > 
<82 > 

< 48 > 

< 18 > 
< 22 > 

< 33 > 

< 72 > 
<527 
<43> 
<24> 

< 39 > 
<94 > 
<93> 

< 68 > 
< 0> 

< 79 > 

< 76> 

< 65 > 

< 60 > 

< 55 > 

< 12 > 

< 49 > 

< 19 > 

< 29 > 

< 82 ) 
< 39 > 


1640 IF bac kX = l THEN 1590 

1650 XF (oa(zaX)-2.3-v)<0 THEN 1630 

1660 hO(zaX)=v 

1670 ypX=2:xpX=22:GOSUB 2320 

1680 IF backX=l THEN 1630 

1690 XF (1a(zaX)+0.4+v)>20.6 THEN 1670 

1700 br(zaX) = v 

1710 lX=l:ypX=2:xpX=38:GOSUB 2140 
1720 IF backX=l THEN 1670 

1730 IF UPPER$(i$)="J" THEN rX(zaX)=254 ELSE rX(za 
X) =4 7 

1740 PRINT screenro$;nor$:a*=FRE("") 

1750 PRINT FNmess?(0,0,"AI 1 es Okay ?") 

1760 match?="JN":GOSUB 3300 
1770 IF antw=2 THEN:aX=FREGOTO 1390 
1780 IF korX=0 THEN bmaxX=zaX ELSE korX=0 
1790 IF bmaxX=20 THEN 1870 ... ... 

1800, koX=0: PRINT f Nmess? ( 0,0 , i te r -^K Korrektur 

S fc ehen.• JL EXIT t= ‘') 

1810 matCh?="SKW"+CHR?(27):GOSUB 3300 

1820 ZF antw=3 THEN:zaX=bmaxX+l:GOTO 1410 

1830 IF antw=4 THEN 1900 

1840 IF antw=2 THEN 1920 

1850 ON antw GOSUB 1980 

1660 GOTO 1800 

1870 PRINT. PNmtsst ( 0.0 , " K Korrektur. 

. JL EXIT t ") 

1880 match$="K"+CHR$(27):GOSUB 3300 
1890 IF antw=l THEN 1920 
1900 PRINT screenro$:RETURN 
1910 * 

1920 PRINT FNmess?(0,0,"Nummer: ") 

1930 1X=1:ypX=1:xpX=11:GOSUB 2340 
1940 IF bac kX=1 THEN 1800 
1950 IF v=0 OR v >bmaxX THEN 1920 
1960 korX=1:zaX = v:GOTO 1410 
1970 ' 

1980 '* Seite sehen * 

1990 ’ 

2000 PRINT screenro?;cls?;nor? 

2010 IF bmaxX=l THEN i$=" Eintrag" ELSE 1$=" Eintr 

äge" 

2020 PRINT FNmess?(0,0,"Seite sehen:. 

.. "+STR$(bmaxX)+i$) 

2030 PRINT FNpos$(3,0);11 $ 

2040 ypX=4 

2050 FOR zaX=l TO bmaxX 

2060 PRINT FNpOs$(ypX,0>;CHR$(133)+inv$+" "+CHR$(d 
rX(zaX))+“:. "+CHR$(rX(zaX))+". 1 "+name$(zaX)+STRI 

NG$(3-LEN C name?(zaX))," ")+".prn' "; 

2070 PRINT USING 1a(zaX);oa(zaX);ho<zaX); 

br(zaX); 

2080 PRINT " "+nor?+CHR?(133) 

2090 ypX=ypX+l:NEXT zaX 
2100 PRINT FN P os$typX,0);11$ 

2110 PRINT FNpos?(ypX+l,0)Junten? 

2120 aX=FRE(RETURN 
2130 ' 

2140 '# Buchstaben eingeben * 

2150 ‘ 

2160 backX=0: stX=0: 1 : i i 

2170 PRINT FNpos?CypX,xpX);1 $;con?; 

2180 11?={INPUT?(1)) 

2190 WHILE ASC( 1 1 $) < 122 AND ASC(ii$)>96 AND stXOX 
2200 stX=stX+l:1?=1?+11? 

2210 PRINT FNpos$(yp*,xpX);1$; 

2220 11$=(INPUT$(1)): WEND 

2230 IF 11$=CHR$(8) THEN:backX=l:RETURN 

2240 IF NOT ASC(11?) = 12 7 THEN 2300 

2250 IF LEN(1 $)>1 THEN 2270 

2260 PRINT FNpos?(ypX,xpX);1?:GOTO 2160 

2270 1$=LEFT$(1$,LEN(1$)-1) 

2280 3tX=stX-l:PRINT FNpos$(ypX,stX+xpX);1 $ 

2290 GOTO 2170 

2300 PRINT coff$:RETURN 

2310 ' 

2320 '* Real eingeben * 

2330 ' 

2340 PRINT FNpOs$(ypX,xpX);STRING?(4,CHR?(255));CO 
n$; 

2350 backX=0:atX=0:1$="":koX=0 
2360 PRINT FNpos$(ypX,xpX); 1 $; 

2370 11?*(INPUT?{1)) 

2300 WHILE ASC(1i$)>47 AND ASC(ii$><58 AND stX<4 
2390 stX=stX+l:i?=i?+i1$ 

2400 PRINT FNpos$(ypXixpX) ; i ? ; 

2410 1 1 ?= (INPUT$(1)):WENO 

2420 IF NOT (<1i$="." OR ii?=",") AND kOX=0) THEN 
2450 

2430 koX=l:stX=stX+l:i$=i" 

2440 GOTO 2360 


< 16> 

< 8 > 

< 85 > 
<98> 
<53> 

< 16> 

< 74 > 

< 35 > 

< 69 > 

< 7 > 

< 72> 

< 13> 
<58> 

< 75 > 

< 6 7 > 

< 94 > 

< 63 > 

< 39 > 

< 72 > 

< 64> 

< 5 > 

< 41 > 

< 42 > 

< 63> 

< 19 > 

< 19 > 

< 0 > 

< 5 > 

< 71 > 
<11> 

< 19 > 

< 40 > 

< 14 > 

< 36 > 
<90 > 

< 3 > 

< 1 > 

< 7 > 

< 14 > 

< 13 > 

< 53 > 

< 8 > 

< 53 > 

< 43 > 

< 44 > 

< 14> 

< 1 > 
<53> 
< 2 1 > 

< 29 > 

< 45 > 
<46> 

< 53 > 

< 54 > 

< 34 > 

< 0 > 

< 83> 
<91 > 
<25 > 

< 9 7 > 

< 56 > 

< 82 > 

< 5 6> 

< 5 6 > 

< 91 > 

< 28 > 

< 95 > 
<88 > 

< 9 6 > 

< 55 > 

< 3 > 

< 85 > 

< 5 7 > 

< 44 > 

< 52 > 

< 82 > 

< 50 > 

< 5 > 

< 13 > 

< 3> 

< 16 > 

< 65 > 

< 25 > 

< 9 > 

< 17 > 

< 62 > 


2450 

N 

2460 

2470 

2460 

2490 

2500 

2510 

2520 

2530 

2540 

2550 

2560 

2570 

1 

2580 

2590 

2600 

2610 

2620 

A" 

2630 
2640 
2650 
2660 
2670 
2680 
2690 
2700 
2710 
2720 
2730 
2740 
2750 
2760 
2770 
RN' . 
2780 
2790 
2600 
2810 
2020 
2830 
2840 
2850 
2860 


IF 1i$=CHR$(8) THEN:PRINT coff$:backX=1:RETUR 

IF NOT ASC(11$)=127 THEN 2530 
IF LEN(1 $)>1 THEN 2490 
PRINT FNp0 5$(ypX,xpX);1 $:GOT0 2350 
i$=L£FT$(1$,LEN(i$)-l) 

IF INSTRt1$,".")=0 THEN koX=0 
stX=stX-l:PRINT FNpos$(ypX,+stX+xpX);1$ 

GOTO 2360 

v=VAL(i$):PRINT cof f?:RETURN 
'* Seite drucken * 

PRINT FNpos$(1,68); i nv?+'"^Zeigen ^" + nor$:za2X= 

PRINT screenlo$;cls$;screenro? 

fakty=l:faktx=I:posyX=0:posxX=0:GOSUB 3380 

WHILE NOT ( za2X > bmaxX) 

dname?=name?(za 2 X) 

IF d rX (za2X) = 77 THEN Orive$ = "M" ELSE Drive$=" 

POSxX=(ROUND( 1a(z a2X),1)-0.4)*1620 
posy%=(26.3-R0UND(oa(za2X),1))*1365 
faktx=R0UND(brCza2X) , D/20.2 
fakty=ROUND(ho(za2X),l)/24 

IF rX{za2X)=254 THEN rahmenX=l ELSE rahmenX=0 

GOSUB 2 750:1F NOT backX=l THEN 2700 

RETURN 

za2X=za2X+l:WEND 

OPTION FILES Dr1ve$:RETURN 

1 * Drucken * 

OPTION FILES DM ve$ 

IF NOT FIND?(“1"+dname$+".PRN")="" THEN 2790 
PRINT FNmess${0,0,"Druckdatei. ‘1“+dname$+".P 
nicht vorhanden 1 ") 

PRINT FNpos$(2,0);unten$:RETURN 
OPEN "I”,1,"l"+dname$+".PRN" 

INPUT #1, firstX:CLOSE 1 
IF flrstX=-l1111 THEN 3160 

'* Unkomprimierte Dateien * 

zaX=l 

WHILE NOT FINO$(MIO*(STR$CzaX),2.3)+dname$+". 


PRN")= 


2870 zalX=~l 

2880 OPEN "I",I,MID$(STR$(zaX),2,3)+dname$+".PRN 
2890 INPUT #1,d rmX,fbX,fsX,w rmX 
2900 WHILE NOT (EOF(l)) 

2910 zal*=zalX+2 

2920 INPUT #l,p1X(zaIX),p1X(zalX+l) 

2930 p1X(zalX)=p1X{zalX)*faktx+poexX 
2940 plX(zalX+1)=plX(za1X+1)*fakty+posyX 
2950 WEND 

2960 zmaxX=(zalX+l)/2 

2970 CLOSE 1:GOSUB 3050:zaX=zaX+I 

2980 WEND 

2990 OPTION FILES "m" 

3000 IF rahmenX=l THEN GOSUB 3390 
3010 RETURN 
3020 ' 

3030 ’* Parameter einstellen und übergeben * 

3040 1 

3050 OPTION FILES "M" 

3060 GOSUB 3690 

3070 GOSUB 3760 

3080 contr1X(1)=drmX 

3090 contrlX(2)=zmaxX 

3100 GOSUB 4130 

3110 OPTION FILES Drive? 

3120 RETURN 
3130 ' 

3140 ’* Komprimierte Datei * 

3150 1 

3160 OPEN "I",2,"l"+dname?+".PRN" 

3170 INPUT *2,f1rstX 
3180 WHILE NOT <EOF(2) ) 

3190 INPUT #2,drmX,fbX,fsX.wrmX,ZmaxX 
3200 FOR zalX=l TO (zmax%*2) STEP 2 
3210 INPUT #2,piX(zalX),piX(zalX+l) 

3220 p1X(zalX)=p1X(zalX)*faktx+pOsxX 
3230 piX{zalX+l)=p1X(zalX+1)*fakty+posyX 
3240 NEXT zalX:GOSUB 3050 
3250 WEND:CLOSE 2 
3260 OPTION FILES "M" 

3270 IF rahmenX=l THEN GOSUB 3390 
3280 RETURN 
3290 1 

3300 ’* Taste holen * 


Listing “30-Grafik, die Zweite...” 
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< 5 6 > 

3310 

antw$=INKEY$ 

<94> 

3320 

WHILE antw$=” “ 

< 4 6 > 

3330 

antw$=INKEY$:WEND 

< 73> 

3340 

antw=INSTR(match$,UPPERS(antw$) ) 

< 64 > 

3350 

IF antw=0 TUEN 3310 

< S> 

3360 

RETURN 

< 13> 

3370 


< 26 > 

3380 

'* Rahmen zeichnen * 

< 8 8 > 

3390 

wrmx=1:QOSUB 3760 

< 5 > 

3400 

xl=(m*»faktx)+posx* 

< 54 > 

3410 

yl=(mX*fakty ) +posyX 

< 39 > 

3420 

x2=(mX*faktx)+posxX : y2=posyX 

< 40 > 

3430 

GOSUB 3570 

< 70> 

3440 

xl=posxX : x2=posxX : y 2 =posyX 

< 66 > 

3450 

yl=(m%*fakty)+posyX 

< 4 9 > 

3460 

GOSUB 3570 

< 69 > 

3470 

xl=x2:yl=y2:y2=posyX 

< 36 > 

3480 

x2=(mX*faktx)+posxX 

< 58 > 

3490 

GOSUB 3570 

< 79> 

3500 

xl=posxX:yl=(mX*fakty)+posyX 

<17> 

3510 

x2=(mX»faktx)+posxX 

< 6 6 > 

3520 

y2=(m%*fakty ) +posyX 

< 42> 

3530 

GOSUB 3570 

< 3 > 

3540 

RETURN 

<11> 

3550 


< 14> 

3560 

1 

< 91 > 

3570 

‘* d raw 1 ine * 

< 49 > 

3580 

contrl X( l)=6:contrlX(2}=2 

< 95 > 

3590 

piX(l)=xl:piX(2)=yl 

< 69 > 

3600 

piX(3)=x2:p1X(4)=y2 

< 43 > 

3610 

GOSUB 4130:RETURN 

< 4 > 

3620 


< 1> 

3630 

'* set 1 inetype * 

< 2 5 > 

3640 

contrXf1)=15 : contrX(2)=0 

< 48 > 

3650 

intinXC1 ) = 1tX : GOSUB 4130 

<U> 

3660 

RETURN 

< 19 > 

3670 


< 43 > 

3680 

’* aet f i 11 sty 1 e * 

<55 > 

3690 

COnt r1X ( l)=23:contrlX(2)=0 

< 29 > 

3700 

intinX(l)=fbX:GOSUB 4130 

< 5 X > 

3710 

contrlXfl)=24:contrlX(2)=0 

< 2 7 > 

3720 

1ntinX(l)=fsX:GOSUB 4130 

< 4» 

3730 

RETURN 

< 54 > 

3740 

PRINT FNc1(5) 

< 15 > 

3750 


< 9 7 > 

3760 

'* set writingmode * 

<50> 

3770 

contrl%(l)=32:contr1X(2)=0 

< 3 > 

3780 

1 n 11 nX(1)=wrmX:GOSUB 4130 

< 22 > 

3790 

RETURN 

< 2 > 

3800 


<16> 

3810 

'* Inlt GSX * 

< 4 2 > 

3820 

OIM pbX(5),contrlX(10),intinX(20) 

< 15 > 

3830 

DIM piX(200),intoutX(45),ptsoutX(20) 

< 2B> 

3840 

gdOSX=«,HBDF0 

< 81 > 

3850 

MEMORY gdosX-1 

< 82 > 

3860 

POKE gdosX,14 

< 78 > 

3670 

POKE gdoaX+1,115 

< 60 > 

3880 

POKE gdosX+2,195 

< 81 > 

3890 

POKE gdoaX+3,5 

< 77> 

3900 

POKE gdosX+4,0 

< 74 > 

3910 

deviceX=21:GOSUB 3940 

< 5 > 

3920 

RETURN 

< 13 > 

3930 


< 59 > 

3940 

'* open workstation * 

< 74> 

3950 

GOSUB 4050 

< 5 > 

3960 

contr1X(1)=1:contr!X(2)=0 

<98> 

3970 

contr1X(4)=10 

< 28 > 

3980 

1ntinX(l)=deviceX 

< 90 > 

3990 

RESTORE 4030 

< 67 > 

4000 

FOR i=2 TO 10 

< 1 > 

4010 

READ intinXti ) :NEXT 

< 35 > 

4020 

GOSUB 4130.RETURN 

< 9 2 > 

4030 

DATA 1,1,1,1,1,1,2,6,1 

< 9 8 ) 

4040 


< 34 > 

4050 

'* close workstation * 

< 5 > 

4060 

contr1*(1)= 2:contr1X(2)=0 

< 50 > 

4070 

GOSUB 4130:RETURN 

<11> 

4080 


< 75 > 

4090 

'* update workstation * 

<23 ) 

4100 

contrlX(l)=4:contr!X(2)=0 

< 34 > 

4110 

GOSUB 4130:RETURN 

<94 > 

4120 


< 33 > 

4130 

'* GDOS-aufruf » 

< 3 4 > 

4140 

pb*(1)=UNT(VARPTR(contrIX(1) ) ) 

< 96 > 

4150 

pbX( 2 )=UNT(VARPTR(1ntlnX(1))) 

< 77> 

4160 

pb*(3)=UNT(VARPTR(pi*(1))) 

< 34 > 

4170 

pbX(4)=UNT(VARPTR(intOutX(1) ) ) 

< 42 > 

4180 

pb*(5)=UNT(VARPTR(ptsout*( l) ) ) 

< 83 > 

4190 

CALL gdosX(gdosX,pbX(1)) 

< 85 > 

4200 

RETURN 
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JOYCE Sonderhefte 

Informationen erster Klasse 

Das erste JOYCE Sonderheft ist ausverkauft. 

(Bitte nicht mehr bestellen) 

Die JOYCE-Sonderhefte sind Sonderpublikationen 
aus der Redaktion der PC International für JOYCE 
und JOYCE Plus. Sie enthalten ausschließlich noch 
nicht veröffentlichte Programme. 



JOYCE Sonderheft 2 
Aus dem Inhalt: 

PASCAL-Compiler, Adress- und Arehiv- 
verwaltung, Turbo-PASCAL Grafiker¬ 
weiterung ohne GSX, Funktionstasten¬ 
belegung, 3D-Funktionsplotter 


JOYCE Sonderheft 3 
Aus dem Inhalt: 

Wakabeltrainer, Mini-DTP-Programm, 
Spooler, dBase-Werkzeugkiste, LOGO- 
Prozeduren 


und vieles andere mehr! 


Alle im Heft veröffentlichten Programme sind auch auf 3“-Disketten 
erhältlich (insgesamt über 640 KB) 


JOYCE Databox 2/88 

Diskette 1: 

- 3D-PJotter 

- Pascal Compiler 

- dBase-CMDs 

- dBase-Handbuch 

- Kybernetik-Lernspiel 

- Quickregister 

- Spaltendruck (LocoSript) 

- Entscheidungsgenerator 

- Gralmod-Erweiterung 

- Adressverwaltung 

- Archiwerwaltung 

- Balkenmenue 

- Kalender 

- Funktionszeichner (LOGO) 

- Labelprinter 

- Lister f. Basicprogramme 

- Funktionsprogramm 

- Suburbia: Brettspiel, 
ähnlich Monopoly 

Diskette 2: 

Alle Dateien für die Turbo-Pascal- 
Grafik -Toolbox: Quellcode und Demo- 
Dateien im Source- und Kommandofor¬ 
mat - 170 kB Daten! 


JOYCE Databox 3/88 

Diskette 1: 

- Memory-Spiel 

- Mini-DTP-Programm 

- Vokabeltrainer 

- Zeichenprogramm in LOGO 

- 17-und 4-Spiel 

- Kopierprogramm 

- RAM-Monitor 

- Druckerspooler 

- Reset ohne Datenverlust 

- 43 Spuren schreiben und lesen 
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Ansichtssache 

32 freidefinierbare Sonderzeichen in 
LocoScript 2 

Aus dem Problem heraus, daß für einige in meinem Studium anfallende Ar¬ 
beiten die Menge der in LocoScript 2 angebotenen frei definierbaren Sonder¬ 
zeichen nicht ausreichte, und wie bereits im Heft 5/88 für LocoScript 1 er¬ 
wähnt, eine Änderung der festen Sonderzeichen ein fast unlösbares Problem 
darstellt, habe ich mich auf die Suche nach einer anderen Lösung gemacht. 


Die bereits bestehende Möglichkeit, 
mit Hilfe des auf der LocoScript 2 Sy¬ 
stemdiskette enthaltenen LOCOCHAR 
16 Sonderzeichen zu definieren, brach¬ 
te mich bei näherer Betrachtung dieses 
Programms dann schließlich auf eine 
ganz brauchbare Idee. (Im weiteren 
Verlauf werde ich immer wieder auf 
die von mir bereits erstellte Sonderzei¬ 
chendatei mit 28 hebräischen Buchsta¬ 
ben eingehen.) 

Der lange Weg durch LOCOCHAR 

Da' das Handbuch zu LocoScript 2 nur 
in englisch abgefaßt ist und in diesem 
Bereich wohl manchem etwas Schwie¬ 
rigkeiten bereiten dürfte, werde ich 
kurz auch auf die Anwendung von LO¬ 
COCHAR, dem Sonderzeichen-De¬ 
signprogramm für LocoScript 2, einge¬ 
hen. Dieses Programm ist mit seinen 
Einzelprogrammen (LOCOCHAR. 
BAS/ LOCOCHAR.2/ LOCOCHAR. 
3) auf der B-Seite der Systemdiskette 
untergebracht und muß zum Start mit 
dem auf der A-Seite vorhandenen MA¬ 
TRIX. PRI auf eine eigene Diskette ko¬ 
piert werden, von wo aus es unter BA¬ 
SIC gestartet wird. Das Programm 
fragt dann nach einem alten MA¬ 
TRIX.#?? File. Hier kann entweder 


das von der Systemdiskette stammende 
versteckte MATRIX.PRI bzw. ein be¬ 
reits erstelltes File verändert werden. 
Dabei sollte darauf geachtet werden, 
daß das auf der Systemdiskette vorhan¬ 
dene MATRIX.PRI nicht gelöscht 
wird, da dieses File die Haupt-Matrix 
für LocoScript 2 darstellt (Vgl. Abb. 1 
oberer Teil). 

Dieser Schritt wird dann mit ENTER 
abgeschlossen, und wenn das Pro¬ 
gramm so weit ist, die Bezeichnungen 
des Character Set und des Style vorge¬ 
nommen. (Bitte alle im Matrix.PRI 
enthaltenen Bezeichnungen auf jeden 
Fall ändern, sonst gibt es bei der späte¬ 
ren Einpassung der neuen Matrix in 
LocoScript 2 Schwierigkeiten!) Nach 
einem erneuten ENTER erscheint end¬ 
lich das Bild wie in Abb. 1 gezeigt, 
nur, daß in den Matrizen selbst vermut¬ 
lich andere Zeichen enthalten sind. 

Um nun alle unterschiedlichen Schrift¬ 
breiten auch drucken zu können, muß 
LocoScript 2 auf die zwei Matrizen mit 
der Bezeichnung “HIGH QUALITY“ 
und “DRAFT“ zurückgreifen. (Vgl. 
Abb. 1) (die dritte Matrize “SCREEN“ 
ist für die Darstellung des Zeichens auf 
dem Bildschirm bestimmt). 

Und das ist nun der Ausgangspunkt für 
die Erstellung der 32 Sonderzeichen. 


Man kann nämlich statt beide Male 
dasselbe Zeichen zu verwenden, die 
beiden Matrizen mit unterschiedlichen 
Zeichen füllen, was dann eben zu den 
32 Zeichen führt. Mit den Funktions¬ 
tasten Fl, F3 und F5 wird die jeweilige 
Matrize zur Bearbeitung aufgerufen. 
Die spätere Tastaturbelegung ist im 
Handbuch auf Seite 305 angegeben. 
Der Nachteil dieser Änderung ist wahr¬ 
scheinlich nicht verborgen geblieben, 
denn nur eines der beiden Zeichen ist 
schließlich auf dem Bildschirm dar¬ 
stellbar. 

Auf die unterschiedlichen Schriftgrö¬ 
ßen werde ich gleich weiter eingehen. 
Zuerst aber muß dieses neue MA¬ 
TRIX.#?? File erst einmal in Loco¬ 
Script 2 eingefügt werden. Dazu wird 
LOCOCHAR über EX1T verlassen 
(bitte erst LOCOCHAR zu Ende arbei¬ 
ten lassen!). 

Die Einpassung in LocoScript 2 

Nun wird LocoScript 2 gestartet und 
das neue MATRIX. #??-File von der 
LOCOCHAR-Diskette in die Gruppe 0 
der Systemdiskette kopiert. Danach 
bitte die Funktionstaste F6 drücken, 
(Abb. 2) worauf das Einstellungsmenü 
erscheint. Dann den Cursor auf EXIT 
setzen, das Menü wieder verlassen und 
auf der Diskette wird es dann, wenn 
man dem Menü folgt, in EIN¬ 
STELL.STD gespeichert. Will man 
nun seine Sonderzeichen für alle Texte, 
die bearbeitet werden sollen, haben, so 
geht man noch einmal mit F6 in das 
Einstellungs-Menü und setzt dort den 
Cursor auf “Für Zeichensatz“ und tippt 
ENTER. Das dann erscheinende Menü 
enthält die Bezeichnungen, die in LO¬ 
COCHAR unter “Character Set 
Name“ eingegeben wurden. Hier dann 
noch mit dem Cursor und den [+/-]- 
Tasten den entsprechenden Zeichen¬ 
satz an wählen. (Vgl. Abb. 3) Mit 
ENTER das Menü verlassen und das 
Ganze mit EINSTELL. SPEICHERN 
beenden. Um nun das Resultat seiner 
Arbeit endlich betrachten zu können, 
muß man LocoScript 2 erneut starten, 
damit dann diese Matrix automatisch in 
M: als Einstellungsmöglichkeit gespei¬ 
chert wird. Um nun nicht jeden neuen 
Text mit der Einstellung versorgen zu 
müssen, empfiehlt es sich, für jede 
Gruppe eine Schablone zu erstellen, in 
der diese Einstellung enthalten ist. ln 
dieser Schablone wird mit der Funk¬ 
tionstaste Fl der Modus “Formgestal¬ 
tung“ angewählt. Dort wird dann mit 
Hilfe der F6-Taste der Druckermodus 
aufgerufen und der Zeichensatz richtig 
eingestellt. 


iMJütcixXUfi Bat. IfatOK hie 

File Na« : MATRIX,tHB MATRIX.f NB 

Character Set Naue : HEBR3 HÖR3 

Character Style Nase : HEBRAEISCH HEBRAEISCH 


Fl : HIGH QUAL1TV 

F3 : DRAFT F5 { SCREHl 

RELAY 

DEL* 


. *♦••••♦♦ 

CÜI 

CDPY 

•••t .♦•••• 

•••#.♦ 

.♦. 

.♦. H">>H 

.•.H—•* 

.♦. 

13321 

Ä8ö 

-w. -4 . 

..•. 

. 

. H--H 

Ä1Ü 

Ä9ö 

..♦. 

. 

. H--H 

Ä2ü 

ÄAü 

■•••♦.. 

.* *. 

... 

a3ü 

ÄBw 

•••«.•. 

•••*.♦■••• 


a4u 

ÄCÜ 

-i . * • 

F7 : PRINT OPTIONS 

Ä5ü 

aDü 


PS COLS = 24 

X MDTH = i«5‘/. 

HIGH 

«6ü 

aEü 


a?ü 

ÄFli 


■MM BUSV 

EXIT 

STOP 


Abb. 1: Ein Zeichen wird 'geboren' 
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fl : (tttionm f2=Pisk fil-titn fA^Juype f5-Tt»t 


?-&ichsfI 


'tianm 


lUgfufrk B 


Uufverk At 


lJDk bei. 3Sk frei 9 D»l. 4k bei 

WB BWO CruppeA *k! 
wuppel *k CruppeS 4» 


•dt CruppeO Ölt 

4 Inns Dateien 
AftlBiX .»HB Uk 
? versteckt 24k 


4 'Truppe® 


Urfti.st» lk 

5 versteckt 118k 


Abb. 2: Der neue Zeichensatz wird angezeigt... 



Abb. 3:... und steht zur Arbeit bereit... 


Die Anwendung und ihre 

kleinen Tücken 

Nun kann es endlich ans Arbeiten ge¬ 
hen. Aber auch davor hat sich noch 
eine Tücke gesetzt, die auf alle Fälle 
beachtet werden muß. 

Die in der “HIGH QUALITY“-Matri- 
ze erstellten Sonderzeichen können nur 
mit den Druckereinstellungen 
(+ZeichZ 10), (+Zeich Z12), (+Zeich- 
ZPS), (+ZeichZ 1OD), ( +ZeichZ 12D) 
oder (+ZeichZPSD), nur in KOR¬ 


RESPONDENZQUALITÄT gedruckt 
werden. Hoch- bzw. Tiefstellen geht 
ebensowenig. Um aber dennoch alle 
Zeichen zu einem geschlossenen 
Schriftbild zu formen, wie es ja auch 
meine ursprüngliche Absicht war, 
kann man nun auf einen Trick zurück¬ 
greifen. Bei genauer Beobachtung fallt 
nämlich auf, daß sich die Dimensionen 
von Zeichen die mit (+ZeichZ 15 D) 
oder ( + ZeichZ10)( + Fett) gedruckt 
werden, sehr stark ähneln, beide grei¬ 
fen aber auf unterschiedliche Matrizen 
zurück! Was liegt also näher als diese 


beiden Formen miteinander zu verbin¬ 
den. Was dabei herauskommt, kann 
sich wirklich sehen lassen, ich habe auf 
diese Weise jedenfalls eine Prosemi¬ 
nararbeit über einen hebräischen Text 
geschrieben und mir viel Pinselei und 
Tippex erspart. Noch ein Tip für die, 
denen die ewige Eintipperei der Drnck- 
befehle auf die Finger geht. Wenn man 
die Befehle einmal mit COPY als Sätze 
speichert, lassen sie sich einfach immer 
wieder bei Bedarf mit EINBL abrufen. 
Viel Spaß! 

(Christian v.Rotenhan/me) 


Text Verarbeitung? ARNOR hat die Lösung! 

AMSTRAD-SOFTWARE vom Hause ARNOR 


PROWORT für AMSTRAD Joyce 8256/8512/9512, CPC6128. 


Das äußerst leistungsstarke Textverarbeitungsprogramm mit 
unglaublicher Geschwindigkeit und Flexibilität. 

PROWORT wird mit Rechtschreibeprüfung; MailMerge- 
funktionen und verschiedenen Disketten-Hilfsprogrammen 
geliefert und mit umfangreichem deutschem Handbuch. 


Andere Besonderheiten: Zwei-Dateien Verwaltung; 
Fremddrucker anschließbar; Suchen und Ersetzen; Kasten- 
"Vorgänge" usw. 

zu dem Preis von D.M. 219,- * 

Englisches Wörterbuch auch erhältlich, zu einem zusätzlichen 
Preis von D.M. 50,- * 


PROSPELL (deutsche Version) 
Rechtschreibeprüfungsprogramm für LOCOSCRIPT1 


Funktioniert direkt mit Locoscript-Dateien. 
Deutsches Wörterbuch - beinhaltet 44000 Wörter. 
Kontrolle von etwa 1500 Worten pro Minute. 
Läuft unter CP/M Plus 


Sie können das Wörterbuch selbst bearbeiten; 
einige tausend Wörter zusätzlich speichern; 

Option zum Aufbau mehrerer Wörterbücher; 

Wörter finden; Möglichkeit zum Lösen von Anagrammen, 


PREIS: D.M. 70,- * 
sofort lieferbar; 

erhältlich von Arnor (Deutschland). 
* Unverbindliche Preisempfehlung. 

Software für Kenner 


Versand erfolgt: V-Scheck anbei 
per Nachnahme 




Arnor (Deutschland) Ltd. 

Hans-Henny-Jahnn-Weg 21,2000 Hamburg 76. Tel: 040 22 49 42 Die Produkte sind auch im guten Fachhandel erhältlich 
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Mallard 

BASIC 


Einführung in Mallard-BASIC 

Folge 4: Der letzte Schliff 


Im dritten Teil der Einführung haben wir uns mit der Struktur eines Pro¬ 
gramms, seiner Gliederung in Hauptprogramm und Unterroutinen beschäf¬ 
tigt. Das so entstandene Programm ÜBEN-6.BAS war zwar lauffähig, es fehl¬ 
ten ihm aber noch einige wichtige Routinen, die in diesem letzten 
Einführungsteil besprochen und hinzugefügt werden sollen. 


Die Positionierung des Cursors 

In der dritten Folge wurde bereits im 
Vorgriff auf ein Thema dieser Folge 
eine Benutzerfunktion definiert, ohne 
daß sie näher erläutert wurde. Dieses 
soll zunächst erfolgen. 

Im Listing unseres Programms 
ÜBEN-6.BAS hatten wir innerhalb der 
Initialisierungszeilen in der Zeile 
10040 folgende Form: 

DEF FNpos$ (zeile, spalte) = 

esc$ + “Y“ + CHR$ (32+zeile) + CHR$- 

(32 + spalte) 

Dieses ist eine sog. Benutzerfunktion. 
Die Bezeichnung hat ihren Ursprung in 
der Tatsache, daß jeder Benutzer, also 
der Programmierer, im Mallard-BA¬ 
SIC eigene Befehle, Befehlsfolgen 
bzw. Funktionen selbst definieren kann 
und muß, weil BASIC sie selbst nicht 
enthält. Die Notwendigkeit der eigenen 
Definition hat zwar Vorteile, da indivi¬ 
duelle Bedürfnisse zu befriedigen sind, 
hat aber auch gegenüber anderen Pro¬ 
grammiersprachen Nachteile, die viele 
und oft benötigte Definitionen in einfa¬ 
cher Form zur Verfügung stellen (z.B. 
LOCATE). In unserem Fall handelt es 
sich um einen solchen LOCATE-Be- 
fehl, d.h., der Rechner wird angewie¬ 
sen, den Cursor an eine bestimmte 
Stelle auf dem Bildschirm zu setzen, zu 
lokalisieren. 

Der Bildschirm des JOYCE ist in 24 
Zeilen und 90 Spalten aufgeteilt. Jeder 
Punkt auf dem Bildschirm ist durch die 
Angabe zweier Werte eindeutig zu be¬ 
stimmen: durch die Zeile und durch die 
Spalte. Diese beiden Werte haben wir 
in unserer Definition durch die Varia¬ 
blen ’zeile’ und ’spalte’ ausgedrückt. 
Ein Punkt in der Mitte des Bildschirms 
wäre also durch Zeile 12 und Spalte 45 
definiert. Zunächst die Form des Be¬ 
fehls: DEF FN. Dieser Ausdruck be¬ 
deutet DEFine FunctioN. Diesem 


Kommando folgt eine vom Benutzer 
gewählte Variable (deshalb die Klein¬ 
schreibung), in unserem Fall die 
String-Variable ’pos$’, was für Posi¬ 
tion steht. Wir definieren also die Auf¬ 
gabe, die Funktion, den Cursor an die 
Position “Zeile/Spalte“ zu setzen, 
durch das Kommando DEF für DEFi- 
nition. Da es sich um eine Funktion 
handelt, folgt die Information an den 
Rechner in Form der Buchstaben FN, 
dem die zu definierende Variable 
pos$(zeile,spalte) folgt. Im Zusam¬ 
menhang mit dem PRINT-Befehl wird 
der Cursor in eine bestimmte Zeile und 
Spalte gesetzt. Folgende Anweisung 
positioniert den Cursor mitten auf den 
Bildschirm: 

PRINT FNpos$ (12,45) 

DEF wird hier nicht mehr verwendet, 
da die Definition eingangs erfolgt ist. 

Somit haben wir ein Kommando zur 
Verfügung, mit dem jeder beliebige 
Punkt auf dem Bildschirm angesteuert 
werden kann. 

Wie kommt diese Definition zustande? 
Wir greifen dabei auf die sog. Steuer¬ 
codes zurück, die als Escape-Codcs auf 
der Systemebene definiert sind. Man 
findet im Handbuch des JOYCE in 
manchen Kapiteln, etwa zur Drucker¬ 
steuerung, das Zeichen für den Escape- 
Code, die Buchstabenfolge ESC. Man 
muß wissen, daß dieser Steuercode für 
Drucker und Bildschirm in dieser 
Form nicht im BASIC-Programm an¬ 
gewendet werden kann. Das ESC-Zei¬ 
chen steht auf der Systemebene für ei¬ 
nen Zahlencode, wie jedes andere Zei¬ 
chen übrigens auch. Sein Wert ist als 
Dezimalwert mit 27 definiert. Um De¬ 
zimalwerte in BASIC-Programmen 
verwenden zu können, muß der Cha¬ 
rakter-String benutzt werden. Dieser 
wandelt numerische Werte in die ent¬ 
sprechenden Zeichen um. Er hat die 
Form CHR$(). Schreibt man (auch au¬ 


ßerhalb des Programms zum direkten 
Ausprobieren möglich) z.B. PRINT 
CHR$(65), so wird der Buchstabe A 
ausgegeben. Sein Dezimalwert in der 
ASCII-Tabelle ist 65. 

Nach diesem kurzen Exkurs zurück zu 
unserer Benutzerfunklion. Wir finden 
nämlich hier in Zeile 10040 diesen 
ESC bzw. CHR$() vor. Er ist aller¬ 
dings bereits verschlüsselt. In Zeile 
10020 haben wir eine Variable mit der 
Bezeichnung esc$ durch CHR$(27) de¬ 
finiert. Damit haben wir die ursprüng¬ 
liche Bezeichnung ESC aufgenommen, 
ohne daß sie allerdings in der Form des 
Zahlenwertes Verwendung findet. Die 
Definition der Zeile und der Spalte er¬ 
gibt sich aus der Angabe des ESC-Co- 
des (esc$ bzw. CHR$(27)) und zweier 
weiterer Charakter-Strings sowie eines 
dazwischen eingefügten Buchstabens 
(Y). CHR$(27) + “Y“ ist das Zeichen 
für die zeilen- und spaltenorientierte 
Monitorausgabe. 

CHR$(32) bezeichnet die Zeile 0 bzw. 
Spalte 0. Will man den Cursor auf die 
erste Zeile und die erste Spalte setzen, 
muß man berücksichtigen, daß diese 
Position durch die Werte 33 bezeichnet 
wird: CHR$(32 + 1). Unser mittlerer 
Punkt definiert sich durch die Werte 
32 + 12 Zeilen und 32 + 30 Spalten, an¬ 
ders ausgedrückt: CHR$(44) + CHR$ 
(62). Damit die Funktion für beliebige 
Werte verfügbar wird, fügen wir für 
Zeilen- und Spaltenwerte hier Varia¬ 
blen ein: 

CHR$ (32+zeile) + CHR$(32+ spalte). 

Durch die einmal vorgenommene Defi¬ 
nition in den Zeilen 10020 und 10040 
ersparen wir uns viel Schreibarbeit. Es 
genügt jetzt die Eingabe PRINT 
FNpos$(12,30), um den Cursor in die 
Bildschirmmitte zu bringen. 

In unserem Programm haben wir diese 
Funktion verwendet, um z.B. Über¬ 
schriften (Dateneingabe) zu positionie- 
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ren. Weiterhin haben wir in der Routi¬ 
ne Dateneingabe diese Funktion in die 
Abfrage der Eingaben eingebaut, wo¬ 
bei wir dort in Zeile 550 innerhalb der 
Funktion eine weitere Variable benutzt 
haben: PRINT FNpos$(a+7,5). Die¬ 
ses bedeutet, daß die erste Abfrage/ 
Eingabe in Zeile 8 erscheint/ erfolgt, 
danach wird jeweils durch die FOR- 
NEXT-Schleife die Variable a erhöht, 
so daß jeweils eine neue Zeile er¬ 
scheint. Wenn die Eingabe als korrekt 
bezeichnet wird, wird der Bildschirm 
durch cls$ in Zeile 650 gelöscht, bevor 
die Unterroutine verlassen wird. Wird 
die Frage nach der korrekten Eingabe 
verneint, rollt der Bildschirm nicht, 
sondern bleibt stehen, denn die Abfra¬ 
ge erscheint durch die Verwendung un¬ 
serer Positions-Funktion an derselben 
Stelle wie vorher. Die fehlerhaften 
Eingaben sind durch Rücksprung auf 
Zeile 520 dort durch die PRINT- 
cls$-Anweisung gelöscht worden. 

Die Zurücksetzung des Cursors 

An diesem Beispiel der Eingabe soll 
noch ein weiterer Vorteil der Benutzer¬ 
funktion verdeutlicht werden. Wir ha¬ 
ben in Zeile 550 die Eingabebezeich¬ 
nung und zusätzlich eine gepunktete 
Linie in der Länge der angeforderten 
Eingabe erzeugt. Würden wir jetzt den 
INPUT-Befehl geben, erfolgte unsere 
Eingabe nach der gepunkteten Linie, 
weil die Befehle des Programms nach¬ 
einander abgearbeitet werden. Einga¬ 
belinie und Eingabe wären nicht zu¬ 
sammenzubringen. Erst die Verwen¬ 
dung der Positionsdefinition erlaubt 
uns, den Cursor zurückzusetzen, näm¬ 
lich an die Position, die dem Doppel¬ 
punkt folgt. Der Doppelpunkt war 
durch FNpos$ in die 20. Spalte gesetzt. 
Wir setzen den INPUT-Befehl der Pro¬ 
grammzeile 560 durch die Voranstel¬ 
lung 

PRINT FNpos$(a + 7,20) 

auf diesen Doppelpunkt. Dem INPUT 
haben wir einen String in Form des 
Doppelpunktes beigegeben, dem das 
Komma folgt. Würden wir auf einen 
String verzichten, erzeugte das INPUT 
ein unerwünschtes Fragezeichen. Die 
Unterdrückung erfolgt nur durch das 
Komma nach einem String. Um die Lö¬ 
schung des schon vorhandenen Dop¬ 
pelpunktes zu vermeiden, schließen 
wir ihn in den ohnehin notwendigen 
String ein. Die Eingabe kann dann di¬ 
rekt auf dem ersten Punkt der Linie be¬ 
ginnen. 


Geben wir die entsprechende Informa¬ 
tion ein, verschwinden die Punkte. Wir 
schreiben also nicht auf der Linie, wie 
bei einem vorgedruckten Formular, 
sondern wir überschreiben die zuvor 
ausgegebene Linie. Dieses ist wichtig 
zu wissen. Die eventuell verbleibenden 
Punkte werden nicht in den Eingabe¬ 
string aufgenommen - der Rechner re¬ 
gistriert sie nicht mehr. 

Auf diese Weise können wir an er¬ 
wünschten Stellen auch Löschungen 
vornehmen. Soll eine oder mehrere 
Zeile(n) oder Teile davon gelöscht 
werden, können wir durch entspre¬ 
chende Positionierung des Cursors und 
des Befehls zum Ausdrucken von Leer¬ 
zeichen vorhandene Beschriftung über¬ 
schreiben und somit löschen. PRINT 
“ “ löscht einen der Anzahl der in An¬ 
führungsstrichen eingeschlossenen 
Leerzeichen entsprechenden Bereich 
einer Zeile ebenso wie folgender Be¬ 
fehl: 

PRINT SPACE$(10). 

Hierdurch wird eine Zeichenkette von 
10 Leerstellen erzeugt und durch 
PRINT-Anweisung ausgedruckt. Am 
konkreten Programm wollen wir eine 
Anwendungsmöglichkeit verdeutli¬ 
chen. Man könnte es als störend emp¬ 
finden, daß nach Angabe der Zahl der 
gewünschten Ausdrucke, diese Abfra¬ 
ge bei der danach erfolgenden Eingabe 
auf dem Bildschirm verbleibt. Sie wird 
nicht mehr benötigt, also soll sie ver¬ 
schwinden, gelöscht werden. Dazu fu¬ 
gen wir folgende Programmzeile ein: 

535 PRINT FNpos$(5,5);SPACE$(50) 

Grafische Effekte 

Eine weitere Möglichkeit, die Benut¬ 
zerfunktion zu verwenden, soll ver¬ 
deutlicht werden. Wir können damit 
nicht nur die Position bestimmen, son¬ 
dern auch in bescheidenem Maße grafi¬ 
sche Effekte erzielen. 

Folgende Zeile ist in der Unterroutine 
Initialisierung einzufugen: 

10050 DEF FNkopJ$(titel$) = 
cls$ + STRING$ ((88-LEN (titel%)) 

/2 “ “+titel$+“ “ + 

STRING$ ((88-LEN(titel$))/2, “* “) 

Was bedeutet dieses Definitions-Unge¬ 
tüm? Nichts anderes, als die Definition 
einer Überschrift, die links und rechts 
in Sternchen eingeschlossen ist. Die 
Definition ist später z.B. folgenderma¬ 
ßen zu benutzen: 

PRINT FNkopj$ (“Dateneingabe “) 


Für Dateneingabe kann jede beliebige 
andere Überschrift (Datenausgabe Mo¬ 
nitor oder Drucker) gewählt werden. 
Wir verändern im Listing die entspre¬ 
chenden Zeilen. Die Definition bietet 
den Vorteil, daß die Überschrift immer 
zentriert erscheint, nachdem der Bild¬ 
schirm gelöscht wurde. Der erste Be¬ 
standteil der Definition ist diese Lö¬ 
schung (cls$), danach folgt die Zusa¬ 
mensetzung der Kopfzeile, die sich er¬ 
rechnet aus den 90 Spalten abzüglich 
der zwei Leerzeichen vor und hinter 
dem Titel. Deshalb erscheint die Zahl 
88. Diese verbleibenden Spalten sind 
aufzuteilen für den Bereich vor und 
hinter dem Titel. Die Länge des Stem- 
chenstrings ergibt sich also aus der 
Hälfte der Spaltenzahl von 88 abzüg¬ 
lich der Hälfte der Titellänge. Für An¬ 
wender, die Wert auf gefällige Darstel¬ 
lung legen, ist dieses sicherlich eine in¬ 
teressante Funktion. 

Die inverse Darstellung 

Einen beeindruckenden Effekt erzielt 
man mit der Verwendung der inversen 
Darstellungsmöglichkeiten. An unse¬ 
rem Programm soll dieses wiederum 
verdeutlicht werden. 

Wir ersetzen die Zeile 10060 (bisher 
mit Doppelpunkt als Leerzeile mar¬ 
kiert) durch folgende Zeile: 

10060 inv. aus$=esc$ + “q 
inv. an$=esc$ + “p “ 

Hier werden Variablen definiert, die 
die inverse Darstellung des Bild¬ 
schirms aus- und einschalten, d.h., die 
Farbdarstellung vertauschen. Wird in 
einem Programm die Anweisung 
PRINT inv.an$ gegeben, so wird von 
dieser Position an der Hintergrund hell 
und die Schrift dunkel dargestellt. Wir 
wollen nach erfolgter Aufnahme dieser 
Möglichkeit in der Initialisierungsrou¬ 
tine eine Anwendung schaffen. Dazu 
fügen wir in der Unterroutine “Daten¬ 
eingabe durch Tastatur“ folgende Ver¬ 
änderungen durch: 

550 PRINT FNpos$ (a + 7,5);inv. <m$; “ 
";bezeichnung$(a) inv.aus$; 
FNpos$(a + 7,20); “ + STRING$ 
(laenge(a), “) 

Vor dem Ausdruck der Eingabebe¬ 
zeichnung wird auf inverse Darstellung 
geschaltet, danach sofort wieder ausge¬ 
schaltet und die normale Darstellung 
hergestellt, d.h., schwarz mit hellgrü¬ 
ner Schrift. Unsere Eingabebezeich¬ 
nungen werden jetzt in schwarzer 
Schrift mit hellgrünem Hintergrund 
dargestellt. Die Erweiterung durch ein 
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vorangestelltes und nachgeordnetes 
Leerzeichen soll einen besseren Ein¬ 
druck erzeugen und an dieser Stelle ein 
weiteres Beispiel für Anwendungs¬ 
möglichkeiten darstellen. 

Diese interessanten grafischen Effekte 
lassen sich vielfältig einsetzen, z.B. im 
Kopf oder in der Routineabfrage “Wei¬ 
ter mit beliebiger Taste“. 

Es gibt viele weitere Möglichkeiten, 
den Bildschirm zu gestalten. Man kann 
den Cursor zum Verschwinden brin¬ 
gen, die störende Statuszeile am unte¬ 
ren Bildschirm löschen, d.h., die An¬ 
gabe des Laufwerks unterdrücken, 
Darstellungsfelder (Windows) definie¬ 
ren und vieles mehr. Die dazu notwen¬ 
digen Steuercodes sind im Anhang des 
Handbuchs unter dem Titel “Eigen¬ 
schaften des Bildschirms“ dargestellt. 
Jeder dort als Dezimalzahl verzeichne- 
te Code wird durch Einklammerung 
und Voranstellung der CHR$-Funk- 
tion ausgedrückt, z.B. CHR$(7) für die 
Erzeugung eines Pieptones. Jeder 
ESC-Code wird durch CHR$(27) ein¬ 
geleitet, wobei die Folge von Zeichen 
als BASIC-Strings aufzufassen sind 
und deshalb in Anführungszeichen ein¬ 
geschlossen werden müssen, z.B. ESC 
H muß umgesetzt werden in 
CHR$(27) + “H“. ESC 0 bewirkt das 
Ausschalten der Statuszeile und muß 
folgendermaßen im Programm defi¬ 
niert werden: 

CHR$ (27) + CHR$ (0), 

weil hier der numerischer Ausdruck 0 
als Zeichen benötigt wird. In Program¬ 
men werden diese Definitionen durch 
die PRINT-Anweisung aktiviert: 
PRINT CHR$(27)+CHR$(0) schaltet 
die Statuszeile aus. Zum Zweck der 
einfacheren Handhabung werden sol¬ 
che Funktionen durch Variablen defi¬ 
niert, wie das im Fall unseres Pro¬ 
gramms an Beispielen für inverse Dar¬ 
stellung und Positionierung erläutert 
worden ist. 

Die Druckersteuerung 

Die Einstellung und Steuerung des 
Druckers ist mit der des Bildschirms 
vergleichbar. Auch zu den Steuercodes 
für den Drucker gibt es im Handbuch 
grundsätzliche Informationen, deren 
Verständnis durch zusätzliche Erläute¬ 
rungen zu ihrer Verwendung in Pro¬ 
grammen gefördert werden soll. 

Bisher haben wir Ausdrucke unserer 
Adressen auf DIN-A4-Papier vorge¬ 
nommen. Zur Verdeutlichung der 


Druckersteuerung wollen wir jetzt die 
Einstellung des Druckers vornehmen, 
damit unsere Anschrift auf Etiketten 
ausgedruckt werden kann. 

Der JOYCE ist standardmäßig auf die 
Verwendung von DIN-A4-Einzelblät- 
tern eingestellt. Bei den Etiketten han¬ 
delt es sich aber um Endlospapier, das 
über den Traktor geführt wird. Wir 
müssen dem Rechner also mitteilen, 
daß von Einzelblatt auf Endlosbetrieb 
umgestellt werden soll. Vergäßen wir 
diese Mitteilung, würde er Kopf- und 
Fußteile ausweisen, die unseren Aus¬ 
druck völlig durcheinanderbrächten. 
Die Einstellung auf Endlospapier wird 
über einen ESC-Steuercode vorgenom¬ 
men: ESC c. Wie bei den Steuercodes der 
Bildschirmgestaltung müssen wir die¬ 
sen Code umformen: CHR$(27) + “c“. 
Um unseren Drucker gleich zu Beginn 
einzustellen, müssen wir in die Initiali¬ 
sierungsroutine einen LPRINT-Befehl 
mit diesem Code aufnehmen. Die Va¬ 
riable esc$ steht im folgenden immer 
für CHR$(27), wie sie in 10020 defi¬ 
niert worden ist! 

10070 LPRINT esc$+ “c “;esc$ + “m “ + 
CHR$ (1) esc$ + “m “ + CHR$ (1) 

entspricht dem ESC-Code für Einstel¬ 
lung der Schönschrift, der Korrespon¬ 
denzqualität: ESC m 1. Unsere Adres¬ 
senetiketten würden in Entwurfsquali¬ 
tät keinen besonders guten Eindruck 
machen, deshalb stellen wir an dieser 
Stelle gleich die Schönschrift mit ein. 

Die Größe der Druckvorlage 


Für die nächste Einstellung müssen wir 
die Größe der verwendeten Etiketten 
ermitteln. Für Adressenaufkleber sind 
im Handel einbahnige Endlos-Etiketten 
erhältlich, die 88,9 x 35,7 mm groß 
sind. Zwischen ihnen ist ein kleiner 
Zwischenraum, so daß der Abstand 
von Oberkante zu Oberkante des näch¬ 
sten Etiketts genau 38 mm beträgt. Da 
unser Joyce mit Zoll-Maßen rechnet, 
müssen wir dieses Maß in Zoll umrech¬ 
nen. 38 mm entsprechen einer Höhe 
von 1,5 Zoll (mm/25,4). Die Standard¬ 
einstellung der Zeilenzahl pro Zoll be¬ 
trägt 6, so daß wir auf 1,5 Zoll 9 Zeilen 
(1,5x6) unterbringen. Eine Zeile ist 
wegen des Freiraumes zwischen den 
Etiketten für die Beschriftung zu strei¬ 
chen, nicht für die Berechnung! 

Diese Berechnung müssen wir in der 
Routine “Datenausgabe Drucker“ be¬ 
rücksichtigen. Wir haben in unserer 
Programmversion fünf Eingaben (Vor¬ 


name, Name, Straße, PLZ und Ort) 
vorgesehen. Diese fünf Eingaben wer¬ 
den in fünf Zeilen geschrieben. Diese 
zuletzt vorgesehene Art des Ausdrucks 
sollte das Prinzip der FOR-NEXT- 
Schleife deutlich machen. Für den end¬ 
gültigen Ausdruck ist sie nicht sehr 
schön. Deshalb verändern wir die ent¬ 
sprechenden Zeilen 1230 bis 1250. Wir 
wollen wieder den Ausdruck in der 
Form, daß Vor- und Familienname so¬ 
wie PLZ und Ort hintereinander ste¬ 
hen. Die neue Zeile sieht folgenderma¬ 
ßen aus: 

1240 LPRINT:LPRINTeingabe$(l); 

“ “;eingabe$ (2):LPRINT eingabe$(3) 
:LPRINT:LPRINT eingabe$ (4); “ 
eingabe$ (5) :LPRTNT:LPRINT: LPRINT: 
LPRINT 

Den 9-Zeilen-Abstand zwischen den Eti¬ 
ketten haben wir durch neun LPRINT- 
Anweisungen berücksichtigt. Vor dem 
Ausdruck der Namen zwischen Straße 
und Ort ist jeweils eine Leerzeile vorge¬ 
sehen. Nach dem Ausdruck folgen vier 
weitere Leerzeilen. Man könnte bei¬ 
spielsweise weitere Zeilen davon für die 
Beschriftung nutzen, indem man über die 
READ-DAT A-Zeilen (12100-12190) die 
Anzahl der Variablen erhöht, beispiels¬ 
weise um eine Abfrage zur Telefon¬ 
nummer. 

Wenn man statt der eigenen Absender 
Adressen von Freunden, Bekannten und 
Geschäftspartnern beschriften will, wäre 
auch an eine Anrede zu denken, die hier 
durchaus noch unterzubringen ist. 

Die Einstellung der Schriftarten 

Eine weitere Veränderung soll vorge¬ 
nommen werden und damit erläutert 
werden, daß auch unter BASIC die von 
LocoScript bekannten Schriftarten zur 
Verfügung stehen. In den bisherigen 
Programmversionen haben wir nur die 
Entwurfsqualität in der Pica-Schrift 
(10 Zeichen/Zoll) benutzt. Nun wer¬ 
den wir den Ausdruck durch Hervorhe¬ 
bungen gestalten. Wir wollen die PLZ 
und den Wohnort in Fettdruck und un¬ 
terstrichen hervorheben. Dazu sind 
zwei Codes notwendig: ESC E und 
ESC 1. Da diese Effekte nur für die 
eine Zeile Gültigkeit haben sollen, 
müssen diese Codes nach Ausdruck 
dieser Zeile wieder aufgehoben wer¬ 
den. Die entsprechenden Codes lauten: 
ESC F und ESC 0. Wir erweitern also 
unser Programm folgendermaßen: 

1230 LPRINT: LPRINT 
1240 LPRINT eingabe$(l); “ 
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eingabe$(2) .LPRINT eingabe$(3) 

1250 LPRINT.LPRINT esc$ + “E“;esc$ 
+ CHR$(l);eingabe$(4); “ 
“;eingabe$(5): 

LPRINTesc$+ “F“; esc$+CHR$(0): 
LPRINT:LPRINT:LPRJNT 

Im Handbuch findet man zur Einstel¬ 
lung von Papierformaten und Schriftar¬ 
ten alle notwendigen Steuercodes in 
der ESC-Form. Diese Einführung hat 
an einigen Beispielen verdeutlicht, wie 
diese in BASIC-Programme einzubin¬ 
den sind. So bleibt es jedem Anwender 
nun selbst überlassen, in welcher 
Schriftart, Schriftgröße und Anord¬ 
nung Daten über den Drucker ausgege¬ 
ben werden sollen. 

Am Ende unseres Programms muß auf 
die Standardeinstellung zurückgegan¬ 
gen werden (was im Übrigen grund¬ 
sätzlich getan werden sollte), denn die 
Vorgabe für Endlospapier kann in 
nachfolgenden Programmen fehl am 
Platze sein. Die Zurücksetzung auf 
Standard wird vor dem END in Zeile 
440 durch folgenden Befehl erreicht: 

440 LPRINT esc$ + CHR$ (64): 

PRINT cls$: END 

Die Dateneingabe durch eine 

Datei 

Als letzte Variante und Erweiterung 
des Programms soll die Datenausgabe 
aus Dateien eingebaut werden. Unser 
Programm kann sinnvoller als bisher 
dadurch werden, daß nicht die eigenen 
Daten, sondern die Adressen von Be¬ 
kannten, Freunden und Geschäftspart¬ 
nern etwa für Weihnachts- oder Ur¬ 
laubsgrüße ausgedruckt werden. 

Hier stellen wir mit wenigen Erläute¬ 
rungen die Verwendung einer sequen¬ 
tiellen Datei in einer Unterroutine vor. 
Diese ist folgendermaßen einzubinden, 
wobei vorhandene Zeilen überschrie¬ 
ben werden: 

850 REM Dateneingabe aus Datei 
860: 

870 OPEN ‘T‘,1, “adressen.seq“ 

880 n=o 

890 WH1LE NOT EOF(l) 

900n=n+I 

910 FOR a=l TO anzahl 

920INPUT # 1,eingabe$(n,a) 

930NEXT 

940 WEND 

950 CLOSE 

960 RETURN 

970: 


980 REM Daten in die Datei schreiben 
990: 

1000 OPEN “0“,1, “adressen.seq“ 

1010 FOR a = l TO n 
1020 FOR b=l TO anzahl 
1030 WRITE #l,eingabe$(a,b) 

1040 NEXT.NEXT 
1050 CLOSE 
1060 RETURN 
1070: 

In den Zeilen 850 bis 950 wird eine se¬ 
quentielle Datei zur Informationsaus¬ 
gabe geöffnet. Es werden aus dieser 
Datei vorhandene Datensätze gelesen. 
In den Zeilen 970 bis 1050 wird diesel¬ 
be Datei zur Informationsaufnahme ge¬ 
öffnet. Anschließend werden Datensät¬ 
ze hineingeschrieben. Wir verwenden 
die bereits bekannte Variable eingabe$, 
die hier allerdings zweidimensional 
(a,b) dimensioniert ist. Wir haben ’n’ 
Datensätze, die aus einzelnen Eingabe- 
feldem bestehen (Name, Vorname 
etc.). 

Um mit dieser zweidimensionalen Art 
von Variablen umgehen zu können, 
sind einige weitere Veränderungen und 
Ergänzungen unseres Programms not¬ 
wendig. Zunächst muß die zweidimen¬ 
sionale Variable dimensioniert wer¬ 
den. Der Befehl dazu ist das schon be¬ 
kannte DIM. Auch eindimensionale 
Variablen, wenn sie in größerer An¬ 
zahl als zehn Vorkommen, müssen dem 
Rechner gesondert angezeigt werden. 
Die zweidimensionale Variable 
eingabe$(a,b) wird in Zeile 

11020 DIM eingabe$ (200,10) 

dimensioniert und ersetzt damit die bis¬ 
herige Form DIM eingabe(300). Die¬ 
ses bedeutet, daß wir zweihundert Da¬ 
tensätze mit jeweils bis zu 10 Feldern 
benutzen können. Im Augenblick ver¬ 
wenden wir nur fünf Felder. Für Er¬ 
weiterungen bleibt also noch Platz. Bei 
höheren Grenzen (ausprobieren!) be¬ 
steht allerdings die Gefahr, daß die 
Speicherkapazität des JOYCE nicht 
ausreicht. 

Wir müssen nach der Dimensionierung 
als nächste Veränderung an allen Stel¬ 
len, an denen wir bisher die eindimen¬ 
sional bestimmte Variable eingabe$() 
hatten, diese in die zweidimensionale 
Variable umbenennen. In drei Unter¬ 
routinen (Dateneingabe, Datenausgabe 
Monitor und Datenausgabe Drucker) 
ist dieses zu berücksichtigen. Die zu 
korrigierenden Zeilen lauten: 

560 PRINT FNpos$(a + 7,20);:INPUT 
“:“,eingabe$(l ,a) 


570IF LEN(eingabe$(l ,a) > laenge(a) 
THEN GOTO 550 

1150 PRINT FNpos$(z+5,5);eingabe$ 
(a,b):z=z+l 

1240 LPRINT eingabe$(a,l); “ 
eingabe$ (a,2) .LPRINT eingabe$ (a,3) 
1250 LPRINT: LPRINT esc$ + “E“; 
esc$+CHR$(l);eingabe$(a,4); “ 
eingabe$(a,5):LPRINT esc$+ “F u ; 
esc$ + CHR$ (0): LPRINT: LPRINT: 
LPRINT 


Die Eingabe von Daten in eine 

sequentielle Datei 

Als letzte Routine müssen wir noch 
vorsehen, Daten in die Datei eingeben 
zu können. Wir verbinden diese Aufga¬ 
be mit der Eingabe über die Tastatur ei¬ 
ner einzelnen Adresse, indem wir die 
Routine Dateneingabe über Tastatur 
um folgende Zeilen erweitern. 

660 befehle0 

670 WHILE befehl < 3 

680 PRINT “Soll der Datensatz in die 

Adressendatei übernommen werden ? 

(j/n) “ 

690 match$= “JjNn“:GOSUB 13000: 
befehl=antwort 

700 ON befehl GOSUB 760,760,720, 
720: 

RETURN 
710 WEND 

720 FOR b-1 TO n.FOR a=l TO 
anzahl 

730 eingabe$(b,a) = eingabe$(l ,a) 

740 NEXT.NEXT 
750 RETURN 
760 GOSUB 1050 
770n=n+l 

780 FOR a=l TO anzahl 
790 eingabe(n,a) =eingabe(l ,a) 

800 NEXT 
810 GOSUB 990 
820 RETURN 
830: 

Hier wird im Anschluß an die bekannte 
Eingabe gefragt, ob die eingegebene 
Anschrift in die Datei übernommen 
werden soll. Im Fall der Bestätigung 
wird die sequentielle Datei geöffnet 
und gelesen (GOSUB 1050 in Zeile 
760). Dieses ist die Voraussetzung da¬ 
für, daß der neu zu übernehmende Da¬ 
tensatz hineingeschrieben werden 
kann. Die sequentielle Datei kann nur 
als Gesamtheit aller Datensätze ge¬ 
schrieben werden. Öfftiet man sie zur 
Dateneingabe, ohne sie vorher gelesen 
zu haben, gehen alle Datensätze verlo- 
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ren. die vorher in ihr enthalten waren. 
Deshalb müssen sie zunächst gelesen 
werden und durch das Verfahren der 
Hinzufügung in den Zeilen 770-800 um 
den neuen Datensatz ergänzt werden. 
Die Hinzufügung erfolgt folgenderma¬ 
ßen: Der Wert für n ergibt sich an die¬ 
ser Stelle aus der Anzahl der aus der se¬ 
quentiellen Datei herausgelesenen Da¬ 
tensätze 

WHILE NOT EOF(l):n — n +1 

Solange das Ende der Datei, End Of 
File, nicht erreicht ist, wird Datensatz 
um Datensatz gelesen. In 770 wird n 
um 1 erhöht und in den Zeilen 780-800 
in einer FOR-NEXT-Schleife als letz¬ 
ter Datensatz belegt. Danach können 
alle Datensätze ab Zeile 980 in die se¬ 
quentielle Datei geschrieben werden. 
Wollen wir eine Anschrift in die Datei 
eingeben, ist es nicht nötig, eine Zahl 
für die Anzahl der Ausdrucke anzuge¬ 
ben. In diesem Fall übergehen wir die 
Abfrage mit der Betätigung der RE- 
TURN-Tasle. 

Ein großes Problem ergibt sich dann, 
wenn die Eingabe einer Adresse nicht 


als Dateieingabe, sondern wie bisher 
als mehrmaliger Adressenausdruck 
vorgesehen ist. Da wir die Variable n 
einmal als Zähler für Datensätze ver¬ 
schiedenen Inhalts einsetzen, wenn wir 
das Einträgen in eine Datei vorsehen, 
ein anderes Mal aber als Zähler für die 
Anzahl der auszudruckenden Adressen 
gleichen Inhalts. Dieses Problem lösen 
wir auf geschickte Art: 

Ab Zeile 720, die angesprungen wird, 
wenn die Frage nach der Aufnahme in 
eine Datei verneint wird, werden Da¬ 
tensätze (Mehrzahl!) durch Zuordnung 
des einen Datensatzes eingabe$( 1 ,a) 
erzeugt (FOR b = 1 TO n, wobei n hier 
der Zähler der gewünschten Ausdrucke 
derselben Adresse ist.). 

Alle diese Datensätze sind natürlich in¬ 
haltlich identisch. Auf diese Weise 
kann unser Programm bei der Daten¬ 
ausgabe auf dem Monitor oder Drucker 
sowohl die inhaltlich verschiedenen 
Datensätze aus der Datei als auch die 
inhaltlich identischen Datensätze der 
Tastatureingabe problemlos darstellen. 
Diese Tricks sollte der Programmier¬ 


anfänger gründlich nachzuvollziehen 
versuchen, denn solche Verfahren der 
Umbenennung und Variablenbelegung 
benötigt man oft zur Lösung verzwick¬ 
ter Aufgabenstellungen. 

Um die Lauffähigkeit dieses Pro¬ 
gramms sicherzustellen, ist noch eine 
Anmerkung vonnöten. Vor dem Start 
muß man eine leere Datei des bezeich- 
neten Typs und Namens erzeugen. Das 
Programm verzichtet auf diese Mög¬ 
lichkeit, damit es nicht zu lang und un¬ 
übersichtlich wird. Die Eröffnung ist 
außerhalb des Programms in BASIC 
mit folgender Zeile, die lediglich mit 
RETURN abgeschlossen werden muß, 
zu erledigen: 

OPEN “0“,1, “adressen.seq“:CLOSE 

Bitte ohne Zeilennummer eingeben, 
damit diese Zeile nicht in das Pro¬ 
gramm integriert wird. Man muß na¬ 
türlich darauf achten, daß die Datei 
beim Betreiben des Programms auf 
demselben Laufwerk ist, wie das Pro¬ 
gramm selbst. 

(Friedhelm Sauerländer/me) 


NEU: 

Heißer Draht 

jetzt 

mit Durchwahl! 

Haben Sie Fragen, die nicht warten können? Dann 
rufen Sie uns an! Unser Leser-Telefonservice steht 
Ihnen 

jeden Mittwoch 
von 17.00 bis 20.00 Uhr 

zur Verfügung. 

Sie erreichen Ihren Redakteur jetzt direkt unter einer 
Durchwahlnummer. Auf Ihren Anruf freuen sich: 

Claus Daschner (CPC Software) 

(0 56 51) 8009-16 

Jürgen Borngießer (CPC Hardware) 

(0 56 51) 80 09 - 17 

Ralf Schößler (PCW) • Michael Ebbrecht (PCW, PC) 

(0 56 51) 8009 - 18 

Achtung: Die in früheren Heften veröffentlichte 
Sammelnummer ist ab sofort ungültig - diese 
Nummer bitte nicht mehr anwählen! 



X-Laufwerk für CPC 464/664/6128 

Das X-Laufwerk ist ein Syslemlaufwcrk, dar, nnsiolle eines 3 a -Zweiilaulwsrks am CPC 664/6128 mit eingebau- 
tem oder am CPC 464 mit zusätzlichem 3"-Controller betrieben wird Das X-DDOS-Belriebssyslem wird zusam¬ 
men mit einer EPRQM-Karte an den CPC angeschlossen 

• Die RAM-Belegung ist nahezu 100% kompatibel zu AMSDOS 

• Es kann sotlwaremäßig zwischen X-DDOS und AMSDOS umgeschallet werden 

• Es werden Anpassungsprogramme für CP/M 2 2 ä CP/M Plus mitgeiielert 

• Die CP/M Plus-Anpassung ist auch aut einem CPC 464/664 mil 64 KByle- 
dk'troniks-Speichererweiterung laulfähig 

• Die 224-KByte-EPROM-Kane hat bei installiertem X-DDOS noch eine Rest- 
kapazitäl von 208 KByte 

• Damit X-DDOS auch in beliebigen anderen EPROM-Karlen laulfähig ist, wurde 
völlig ajt einen Kopierschutz verzichtet 

• Als LOW-COST-Lösung beim CPC 464 kann das X-DDOS-EPROM auch einzeln 
bezogen und direkt gegen das AMSDOS-ROM ausgerauscht werden 


X-DDOS EPROM, Sottware & Beschreibung 99,- 0M 

EPROM-Karte, X DOOS. Sottware ä Beschreibung 239,- DM 

S'/^-X-Laufwerk. EPROM-Karte, X-DOOS, Sotlw S Beschr, 615,- DM 

5'/ a --X-Laufwerk, EPROM-Karte, X-DDOS. Soilw & Beschr. 615,- 0M 



Universeller EPR O M-Pro grammer 4003 für Schneider 

PC & CPC 464/664/6128 

• Programmiert alle- qängiqen EPROM und 
EEPROM-Typen (z.B 2716, 27C16, 2732 2732A 
27C32. 2756 2764, 2784A 27C64. 27126 27128A 
270 28,27256 27C256 25D5 2532,2564.X2804A 
X2816A, X2864A ) 

• MenjgosiGuc'tc Software aur Gassetie/DisKeuo 

• 32 KByte frei für EPROM-Dalen (Brennen des 27256 
ohne Nachladen) 

• Kein Umschallen, Stecken oder Löten nötig 

• Ptograirmuerspannungen werden im Gerät erzeugt 

• Verbindung zum Rechner über Flachbandkabel und 
Inlertace-Ksrte (CPC-Version mit durchgeführlem 
Expansionsport) 

• Role und grüne LED zur Belriebsarienanzeige 

• Komplett mit 28poligem Textlool-Sockel 
CPC-464/664 Fertiggerät DM289,50 Bausalz OM 239.- 

CPC-6128 Fertiggeräl DM319,50 Bausalz DM269,- 
PC-1512-Fertiggeräl DM399,50 Bausalz OM 349,- 

• Aufpreis für CPC-Soltware auf 3“-D>sketle slatt Cassefle DM 16- • 

EPROM-Karte 224 KByte für alle CPC 

• Für die EPROM-Typen 2264, 128, 256 

• ROM Nummern 0-15 frei wählbar 

• 7 Sockel 

• Bei 2/256 zwei ROM-Nummern pro Sockel 

• Durchgelührter Expansionsporl 

• Software zum automatischen Erstellen von Prcgrammodulen (Basic und BIN Dateien) 

Fertiggerät für CPC464/664 OM 145,- Ferliggeräl für CPC6128 OM 169- 

Modul Software auf 3'‘-Diskelle OM 95,— 




ÖV>" 


O ri' 


Zubehör für EPROM-Karten 

EPROM 2764 DM 7,58 Maxam-EPROM OM 124,- Prolext-FPROM OM 124- 

EPROM 27128 OM 8,50 Alpha-ROM DM 36,- Ulopia DM 94,- 

EPROM 2/256 OM 11,50 Time-ROM (balteriegopufferto Echlzoiluhr) h EPROM DM135,- 


DOBBERTin Qmb H 

Industrie-Elektronik 

Brahmsstraße 9,6835 Brühl, Telefon 06202/71417 
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gleichzeitiges Drücken von <SHIFT> 
und <PrtSC> ausgelöst. 

Nach dem Programmstart wird nach ei¬ 
nem Ordner mit dem Namen “DIAGR- 
DAT“ gesucht, in dem später die Da¬ 
teien abgelegt werden. Ist ein solcher 
Ordner noch nicht vorhanden, so wird 
er automatisch vom Programm er¬ 
zeugt. Achtung: Dieser Ordner wird 
automatisch in dem Laufwerk erzeugt, 
von welchem aus Sie GEM gestartet 
haben, auch wenn Sie unter GEM ein 
anderes Laufwerk angewählt haben! 
Hiernach erscheint das Hauptmenü: 

1. WERTE EINGEBEN - Fl 
Hier wird zuerst nach der Anzahl der 
einzugebenden Werte gefragt. Es kön¬ 
nen maximal 15 Werte eingegeben und 
dargestellt werden. Bei Eingabe der 
gewünschten Anzahl gelangt man zum 
Eingabebildschirm. 


Balken, Torten und Kreise 


Zahlen und Werte mit dem PC optisch 
ansprechend darstellen 


Das BASIC2-Programm “DIAGRAMM“ dient zur grafischen 
Darstellung von Werten. Hierbei können bis zu 15 Werte und bis zu 
15 Zeichen/Zahlen, die den Werten zugeordnet werden eingegeben, 
und als Säulendiagramm (einfach und dreidimensional), als Strich¬ 
diagramm, Kreisdiagramm oder Tortendiagramm am Bildschirm 
dargestellt werden. 


Auf diesem werden jetzt zuerst die ein¬ 
gestellte Anzahl von Werten nachein¬ 
ander eingegeben, wobei der Cursor 
nach jedem Betätigen der RETURN- 
Taste in das nächste Eingabefeld 
springt. Die eingegebenen Werte soll¬ 
ten in dem Bereich zwischen 1 und 
99999 liegen. 

Ist die Eingabe der Werte beendet, 
folgt die Eingabe der Beschriftung der 
X-Achsen, anschließend muß noch der 
Name des Diagramms eingegeben wer¬ 
den. Hier kann man jedem Wert eine 


Auch Berechnungen nach statistischen 
Gesichtspunkten und Anzeige aller 
Werte sind mit diesem Programm mög¬ 
lich. Optionen wie Werte ändern, Da¬ 
ten und Datei löschen, Daten laden, 
Daten speichern werden hier angebo- 
ten. Zur Menüsteuerung werden fast 
immer die Funktionstasten verwendet, 
so daß lästiges Suchen auf der Tastatur 
entfällt. Auch eine Vielzahl von Feh¬ 
lermeldungen mittels Alertboxen ver¬ 
hindern eine Fehlbedienung. 

Die Möglichkeit, eine Hardcopy zu er¬ 
stellen, ist hier nicht vorgesehen, da 
der “FILL“-Befehl für “BOX“ unter 
“OPEN # kanal DEVICE 21“ bei mir 
nicht funktioniert und wahrscheinlich 
nicht jeder eine Speichererweiterung 
auf 640 Kbyte besitzt. Um eine Hard¬ 
copy zu erstellen, startet man GEM am 
besten von MS-DOS aus, wobei zuvor 
der Befehl GRAPHICS/R eingegeben 
wird. Die Hardcopy wird dann durch 



96 PC 9’88 






























































































PC^ 


Zahl oder einen String bis zu 4 Zeichen 
Länge zuordnen, wobei die Eingabe 
der Beschriftung nach demselben Sche¬ 
ma erfolgt wie die Eingabe der Werte. 
Als Letztes erfolgt noch die Eingabe 
des Namens für das Diagramm, danach 
die Abfrage, ob alles richtig ist. Bei (J) 
kehrt man ins Hauptmenü zurück, von 
wo aus man nun unter den weiteren Op¬ 
tionen auswählen kann. Bei (N) Neu¬ 
eingabe der Werte: 

Eingabebeispiel 1: 

Werte Bezeichnung 

1. 45.8 1. CDU 

2. 31.9 2. SPD 

3. 6.5 3. FDP 

4. 5.0 4. SON. 

NAME DES DIAGRAMMS: WAHL99 


Eingabebeispiel 2: 



Werte 

Bezeichnung 

1 . 

12456 

1. JAN 

2. 

14678 

2. FEB 

3. 

19324 

3. MÄR 

4. 

10021 

4. APR 

NAME DES DIAGRAMMS: UMSATZ 


1/88 

2. WERTE ÄNDERN - F2 

Bei An wählen von ÄNDERN werden 
zunächst alle Werte und Zeichen der 
Beschriftung auf dem Bildschirm in die 
Eingabemaske geschrieben. Nun kann 
man mit dem Ändern beginnen. 

Durch Drücken von > ENTER < kann 
man den jeweiligen alten Wert oder 
String übernehmen. Dies hat den gro¬ 
ßen Vorteil, daß man bestehende Wer¬ 
te, die übernommen werden sollen, 
nicht nochmal neu eintippen muß. Än¬ 
dert man einen Wert oder einen String, 
wird der alte überschrieben. Sind alle 
Änderungen abgeschlossen, kann man 
in das Hauptmenü oder das Menü 'Dia¬ 
gramme’ zurückkehren. 

3. DIAGRAMME AUSGEBEN - F3 
Bei Anwählen von < F3 >, gelangt 
man zunächst in das Untermenü DIA¬ 
GRAMME. 

Hier kann man auswählen, welches 
Diagramm zuerst ausgegeben werden 
soll. Ist ein Diagramm auf dem Bild¬ 
schirm erstellt worden, so kann man 
mittels der Funktionstasten weitere 
Diagrammarten wie Säulen-, Strich-, 
Kreis- und Tortendiagramme von hier 
aus aufrufen, wobei das Säulendia¬ 
gramm hier sowohl in zwei- als auch 
dreidimensionaler Form dargestellt 
werden kann. 

Mit <F5> gelangt man jeweils wie¬ 
der zurück ins Hauptmenü. 

Weitere Optionen bei der Ausgabe 
sind: 



...während die Tortengrafik ideal zur Darstellung von Marktanteilen ist. 


Bild 2: 

1. Automatische Y-Achsen- Beschrif¬ 
tung und Skalierung. 

2. Beschriftung der Säulen. 

3. Ausgabe der Werte am Bildschirm 
bei Kreis- und Tortendiagramm. 

4. BERECHNUNGEN - F4 

Bei dem Menüpunkt BERECHNUN¬ 
GEN werden alle Werte sowie folgen¬ 
de statistische Funktionen und Ihre 
Werte am Bildschirm angezeigt: 

a) Anzahl der Daten 

b) Gesamtsumme 

c) Quadratsumme 

d) Mittelwert 

e) Standardabweichung (N-l) 


f) Standardabweichung (N) 

Rückkehr ins Menü (Diagramme) oder 
in das Hauptmenü. 

5. DATEN SPEICHERN - F5 
Zuerst wird das Inhaltsverzeichnis des 
Ordners “DIAGRDAT “ angezeigt, 
danach werden Sie aufgefordert, den 
Dateinamen einzugeben. Nach Einga¬ 
be und Übernahme mit ENTER, wer¬ 
den die Daten unter diesem Namen ab¬ 
gespeichert. 

6. DATEN LADEN - F6 

Zuerst wird das Inhaltsverzeichnis des 
Ordners “DIAGRDAT“ angezeigt, da- 


xxxxxxxxxxxxxxxxxx DIAGRAMM xxxxxxxxxxxxxxxxxx - x ** xx 


mmm 

1 169 , 

2 178 . 

3 173 , 

4 706 , 

5 706 . 

6 360 , 

7 720 , 

8 1200 




ANZAHL DER DATEN 

8 

GESAMTSUMME 

; 4212,000 

QUADRATSUMME 

: 3175046.000 

MITTELWERT 

526,500 

STANDARDABWEICHUNG N-i : 

369.832 

STANDARDABWEICHUNG : 

345,946 


Bild 3: Als Zugabe gibt ’s auch noch die Option Berechnung ’... 
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nach werden Sie aufgefordert, den Da¬ 
teinamen einzugeben. Nach Eingabe 
und Übernahme mit ENTER werden 
die Daten unter diesem Namen in den 
Speicher geladen. 

7. DATEN/DATEI LÖSCHEN - F6 
Auch hier gelangt man zunächst in ein 
Untermenü, wo man zwischen DATEI 
und DATENBESTAND LÖSCHEN 
aus wählen kann. Bei DATENBE¬ 
STAND LÖSCHEN wird zuerst abge¬ 
fragt, ob man den Datenbestand wirk¬ 
lich löschen will. Bei “J“ werden die 
Daten gelöscht, anschließend erfolgt 
die Rückkehr ins Menü “LÖSCHEN“. 
Bei “N“ erfolgt sofort die Rückkehr in 
das Menü “LOSCHEN“. 

Durch Anwählen von F2 wird wie bei 
Laden und Speichern das Inhaltsver¬ 
zeichnis mit den Diagrammdaten ange¬ 


zeigt. Danach erfolgt eine Aufforde¬ 
rung, den Namen der zu löschenden 
Datei einzugeben. Ist dies geschehen, 
wird durch Übernehmen mit < EN¬ 
TER > die Datei von der Diskette ge¬ 
löscht. Rückkehr ins Untermenü “LÖ¬ 
SCHEN“. Von hier aus gelangt man 
zurück zum Hauplmenü. 


VARIABLENLISTE : 

anzahl - Anzahl der Werte 

a$ - lnkey$/Input$ Tastaturabfrage 

a - Inkey Abfrage 

i.j - Laufvariable für Schleifen 

wertl - Werte 

xachse$ - Beschriftung der X-Achse 

diagramm$ - Name des Diagramms 

abfrageS - Textstring für Alert-Box 

muster — Zufallsmuster wert2 

xachsel$ - Input-Eingabe beim 

diagramml$ - Andern 

dat$ - Wertedatei 

Iösch$ - zu löschende Datei 

zz_ändern — wird bei Andern gesetzt 


zz_berech¬ 
nen - 

zz_löschen - 

faktor - 

faktorl - 

x - 

warten - 

summe — 

summeb - 

mittelwert - 

quadrat¬ 
summe - 

sx - 

gx 

grosswert - 

grw 

hochwert 1 — 

hw 

Schrittweite - 

ww 1 - 

ww2 

winkelwert 


wird bei Berechnen gesetzt 
wird bei Löschen gesetzt 
Faktor zum Umrechnen 
der Werte, in darstellbare faktor2 
Größen. 

Locate Position bei Ausgabe der 

Werte 

Zeitschleife 

Summe der Werte 

Mittelwert 

Quadratsumme der Werte 
Standardabweichung n-1 
Standardabweichung 
Größtwert aller Werte 
Nebenvariable von grosswert 
Höhe der Säulen 
Nebenvariable von hoch wertl 
Einteilung der Y-Markierung 
Summenvariable der 
Winkelwerte 
Winkel in Grad 


(Hans-Otto Hoff/me) 


REH **************#**#*###*#*##**###*# 


REH * - DIAGRAMM - * 
REH * programmed * 
REH * by * 
REH * HANS-OTTO HOFF * 
REH * 6541 KÜLZ * 


REH ********************************** 

CLOSE WINDOW 3:CLOSE WINDOW 4 
FOR i=l TO 5: CLOSE #i.:NEXT 
OPEN #1 WINDOW 1 

SCREEN GRAPHICS 640 FIXED.200 FIXED 

WINDOW #1 FULL 

WINDOW #1 OPEN 

USER «1 SPACE 600,400 

OPTION DEC I MAL". "," . " 

DIH wert 1 ( 15), xachse® ( 15),hochwertl( 15),hw( 15),um 
kelwert(16) 

CD\ 

IF FINDDIR®("DIAGRDAT")="" THEN HKDIR"D1AGRDAT" 
WINDOW TITLE”" 

SET POINTS 20 

LOCATE 20;8 = PRINT"**** DIAGRAHH ****" 

LOCATE 35; 11:PRINT"BY" 

LOCATE 25;14:PRINT“HANS OTTO HOFF" 

SET POINTS 10 

LOCATE 30;20:PR INT H0DE(4)" EINE TASTE... 
a®=INPUT$(1) 

CLS 

LABEL menue 
CLS 

GOSUB bildaufbau 

WINDOW TITLE "****************** DIAGRAHH ****** 
*****************" 

LOCATE 25;2:PRI NT " HAUPTHENUE " 


LOCATE 23; 5: PRI NT "WERTE EINGEBEN.";M0 

DE(4)" Fl " 

LOCATE 23 ; 7 : PRI NT "WERTE ÄNDERN.";H0 

DE(4 >" F2 " 

LOCATE 23; 9 : PRI NT"D T AGR AMME AUSGEBEN. ...... 11 ; HO 

DE 14) " F3 " 

LOCATE 23; 11 :PRINT"BERECHNUNGEN." ;H 

ODE(4)" F4 " 

LOCATE 23; 13: PRI NT "DATEN SPEICHERN."; M 

ODE C 4)" F5 " 

LOCATE 23; 15: PRI NT "DATEN LADEN.";M 

0DE14)“ F6 " 

LOCATE 23;17:PRINT"DATEN / DATEI LÖSCHEN....“;H 
ODE (4 ) " F7 11 

LOCATE 23; 19= PRINT“PROGRAMHENDE." ;M 

ODE 14)" F8 " 


LOCATE 14;21:PRINT M0DEC4)" Bitte die entsprec 
hende Funktionstaste drücken... " 

REPEAT 

a-INKEY 


Listing "DIAGRAMM" 


UNTIL aO-1 AND a>=315 AND a<=322 
a=a-314 

IF a=8 THEN CLS:L0CATE 35;12:PRINT POINTS(20)"END 
E ”:END 

ON a GOSUB uerte_eingeben,werte_ändern,diagramrae_ 
ausgeben,Berechnungen, daten_speichern,daten_la 

den,daten_löschen 
GOTO menue 

LABEL uerte_eingeben 
a1arm=0 
CLS 

IF anzahl>0 THEN alarm=ALERT 2 TEXT " BITTE DEN 
ALTEN DATENBESTAND LÖSCHEN !!" BUTTON RETURN " 0 

K " 

IF alarm= 1 THEN GOTO menue 

LOCATE 10;4:PRINT H0DE(4)" HAXIHAL 15 WERTE ' 

i » 

LOCATE 10;6:WINDOW CURSOR ON 

INPUT"WIEVIEL WERTE SOLLEN EINGEGEBEN WERDEN : 

",anzah1 

WINDOW CURSOR OFF 

IF anzah1<2 OR anzahl>15 THEN LOCATE 10;12:PRIN 
T"EINGABE ZU GROSS ODER ZU KLEIN !!":PRINT CHR®(7) 

;:FOR uarten=l TO 4000:NEXT:anzah1=0:GOTO uerte_ei 
n geben 
CLS 

GOSUB bildaufbau 

LOCATE 27;2:PRINT" WERTE EINGEBEN 

GOSUB uertetafel 
PRINT CHR®(7) 

FOR i=1 TO anzahl 

LABEL neu_eingeben 
WINDOW CURSOR ON 
LOCATE 11 > i +5: INPUT, wert i < i ) 

WINDOW CURSOR OFF 

IF wert 1(i)<1 OR wert 1(i)>99999 THEN PRINT CHR®(7 
);:ALERT 3 TEXT" WERT ZU GROSS ODER ZU KLEIN 
" BUTTON RETURN " OK ":GOTO neu_eingeben 
NEXT 

LABEL xachse 
PRINT CHR®(7) 

FOR i=1 TO anzahl 

LABEL neu_eingebenx 
WINDOW CURSOR ON 
LOCATE 33;i+5:INPUT"".xachse®(i) 

WINDOW CURSOR OFF 

xachse®(i)=UPPER®(xachse$(i)) 

IF LEN(xachse®(i))>4 THEN :PRINT CHR®f7);:ALERT 
3 TEXT" STRING ZU LANG " BUTTON RETURN 11 

OK ":GOTO neu_eingebenx 
NEXT 

PRINT CHR®(7); 


Listing "DIAGRAMM" 
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LOCATE 44;15:PRINT"NAME DES DIAGRAHHS 

LABEL diagrammname 
WINDOW CURSOR ON 
LOCATE 44;16:INPUT"",diagramm* 
diagramm*=UPPER*(diagramm*) 

WINDOW CURSOR OFF 

IF LEN(diagramm*) >20 THEN PRINT CHR*(?);: ALERT 
3 TEXT" EINGABE ZU LANG " BUTTON RETURN " 

OK "-'GOTO diagrammname 
FOR i=anzah1 +1 TO 15:wert 1(i>=0:NEXT 
zähler =1 
PRINT CHR*(7); 

LOCATE 44; 18:PRINT M0DE(4)" ALLES RICHTIG (J/N) 

LABEL tastel 
a*=INKEY$ 

IF a$=" J" OR a* = " j 11 THEN CLS: RETURN 
IF a*="n" OR a*="N" THEN zähler=0:anzah1=0:GOTO 
werte_eingeben 
GOTO tastel 

LABEL diagramme_ausgeben 
CLS 

abfrage*=" die dargestellt werden können 11 
IF an2ahl=0 THEN GOSUB abfragebox:GOTO menue 
GOSUB bildaufbau 

LOCATE 27;2:PRINT 11 UNTERMENÜ / DIAGRAMME " 

LOCATE 1B;7:PRINT“SÄULENDIAGRAMM (einfach). 

."MODE(4) ; 11 Fl " 

LOCATE 18;9 = PR INT"SÄULENDIAGRAMM (dreidimension 

ai)-“MÜDE(4); " F2 » 

LOCATE iS} i t < PR1 NT"STStßHt) 1AGCAMM..,. 

."MODE(4);" F3 " 

LOCATE 18;13:PRINT"KREI SD IAGRAMM. 

."MODE(4 ) ; " F4 " 

LOCATE 18;15:PRINT"TORTENDIAGRAMM . 

."MODE(4 ! ; “ F5 “ 

LOCATE 18; 19: PRINT"-IHRE WAHL -"; 

GOSUB tastatur1 

ON a GOSUB säu1eneins,säu1endrei,strichdiagramm, kr 
e isdiagramm,tortendiagramm 

LABEL säuleneins 
GOSUB diagrammbiId 

WINDOW TITLE"SAULEN/DREID..Fl - STRICHD..F2 - 
KREISD..F3 - TORTEND..F4 - HAUPTM..F5“ 

MOVE 10;375:PRINT" NAME: •;diagramm*; 0 “ 

HOVE 240;375:PRINT" SÄULENDIAGRAMM (einfach) 

muster=RND(7) 
j = l 

FOR i=80 TO 600 STEP INT1550/anzah1) 

BOX i ; 40, INK 300/anzah 1), hoch wert 1 ( j ) +1 WIDTH 3 
FILL WITH muster 

MOVE i-.hochuert 1< j )+46:PRINT P0INTS(8) wert 1 (j) 
MOVE ii15:PRINT xachseütj); 

IF j=anzah1 THEN PRINT CHR*(7);:GOSUB tastatur 1: 
ON a GOTO säulendrei,strichdiagramm,kreisdiagramm, 
tortendiagramm,menue 
j=j + l 
NEXT i 

LABEL säulendrei 
GOSUB diagrammbild 

WINDOW TITLE"SÄULEN/EINF..Fl - STRICHD..F2 - K 
REISD..F3 - TORTEND..F4 - HAUPTM..F5" 

HOVE 10;375:PRINT"NAHE: diagramm*;“ " 

MOVE 240;375:PRINT" SÄULENDIAGRAMM (dreidim.) 

rauster=RND(7) 
j = l 

FOR i=80 TO 600 STEP INT(550/anzah1) 
hu(j)=hochuert1(j) 

IF hw(j)<5 THEN GOTO achse 

BOX i;40,INT(300/anzahl),hochuert1(j) WIDTH 3 
FILL WITH muster 

SHAPE i;hu(j)+40,INT<100/anzahl)+i;hu(j>+40+IN 
T(50/anzab1),i+INT(100/anzahl)+INK300/anzahI);hu( 
j)+40+INT(50/anzah1),i + INT(300/anzah1) + INT ( 100/an 
zah1);40+INT(70/anzah1),i+INT(300/an2ahI);40,i;40 
WIDTH 3 

LINE i+INTC300/anzah1);hochuert1(j)+40,i + INK10 
O/anzahl)+INT(300/anzah1);hochuert1(j)+40+INT(50/a 
nzahl) WIDTH 3 

IF anzah1<7 AND hu(j)<15 THEN MOVE i+3;hochuert1 
( j ) +60: PRI NT P0INTS(8) ;uert 1( j )-.GOTO achse 


Llsting "DIAGRAMM" 


IF anzah1<7 THEN HOVE i+3;hochwert1(j)+25:PRINT P 
01NTS(8);wert 1(j):GOTO achse 

MOVE iIhochuert1(j)+52:PRINT POINTS(8);wert 1(j) 
LABEL achse 

MOVE i;15:PRINT xachse*(j); 

IF j =anzah1 THEN PRINT CHR*(7);:GOSUB tastaturl: 
ON a GOTO säuleneins,strichdiagramm,kreisdiagramm, 
tortendiagramm,menue 
j = j + 1 
NEXT i 

LABEL Strichdiagramm 
GOSUB diagrammbild 

WINDOW TITLE"SÄULEN/EINF..Fl - SÄULEN/DREID..F2 
- KREISD..F3 - TORTEND.. F4 - HAUPTM. . F5 14 
MOVE 10;375iPRINT"NAMH: * fdiaßi-amm*) " " 

MOVE 270; 375: PR INT" STRICHDIAGRAMM 11 
j = l 

FOR i = 90 TO 610 STEP 1 NT(560/anzah1) 

LINE i;40,i;345 WIDTH 1 
MOVE i-10;15:PRINT xachse*(j>; 
j=j + 1 
NEXT 
J = 1 

FOR i =90 TO 610 .STEP INT (560/an zah 1 ) 

IF j =anzahI THEN PRINT CHR*(7);:GOSUB tastatur 
1:ON a GOTO säu1eneins,säu1endrei,kreisdiagramm,to 
rtendiagramm,menue 

LINE i;hochuertl(j)+40,i+INT(560/anzahl);hochue 
rt1(j +1)+40 WIDTH 3 
J = j + 1 

NEXT 

LABEL kreisdiagramm 
CLS 

GOSUB bildaufbau 
GOSUB uinkelberechnung 

WINDOW TITLE"SÄULEN/EINF. . Fl - SÄULEN/DREID..F 

2 - STRICHD..F3 -TORTEND..F4 - HAUPTM..F5" 

LOCATE 3;2:PRINT"NAME: 11 ;diagramm*;" " 

LOCATE 33;2:PRINT" KREISDIAGRAMM 

FOR j=l TO anzahl 

muster=RND(6) 

CIRCLE 350;220,150,PART wwl,uu2 WIDTH 3 FILL W 
ITH muster 

MOVE 330+C0S(uu2-uinkelwert(j)/2)* 180;210+SIN( 
wu2-uinkelwert(j)/2)*180:PRINT;xachse*(j) 
uu l=uu 1 + uinke1uert(j) 
ww2=wu2+uinkelwert(j+l) 

NEXT 

GOSUB uerte_anzeigen:PR1NT CHR*(7);:GOSUB tastatur 
1:ON a GOTO säuleneins,säulendrei,strichdiagramm,t 
ortendiagramm,menue 

LABEL tortendiagramm 
CLS 

GOSUB bildaufbau 
GOSUB uinkelberechnung 

WINDOW TITLE"SÄULEN/EINF..Fl - SÄULEN/DREI..F2 
- STRICHD..F3 - KREISD..F4 - HAUPTM..F5" 

LOCATE 3;2:PRINT"NAME: diagramm*;" " 

LOCATE 33;2:PRINT" TORTENDIAGRAMM 

ELLIPSE 370;180,170,0.5 PART 186,354 WIDTH 3 
LINE 200:220,200;174 WIDTH 3:LINE 540:220,540; 
174 WIDTH 3 

FOR j=l TO anzahl 
muster=RND(7) 

ELLIPTICAL PIE 370:220. 170,0.5,wul,uu2 WIDTH 3 
FILL WITH muster 

IF uu2>180 THEN LINE 370+C0S(wu2)* 170;220+SIN( 
uu2)*85,370+C0S(uu2)* 170;220+SIN« ww2)*85-40 WIDTH 

3 

MOVE 360+C0S(uu2-winke1uert(j)/2>*210;190+SIN(u 
u2-uinke1uert(j)/2)*140:PRINT;xachse*< j) 
uul=uul+uinkeluert(j) 
uu2=uu2+uinkelwert(j+l) 

NEXT 

GOSUB uerte_anzeigen:PRINT CHR*17);:GOSUB tastatur 
1:ON a GOTO säuleneins,säulendre i,strichdiagramm,k 
reisdiagramm.menue 

LABEL tastaturl 
REPEAT 
a=INKEY 

UNTIL aO-1 AND a>=315 AND a< = 319 
a=a-314 
RETURN 

Listing "DIAGRAMM" 


9’88 PC 99 
























^PC 


LABEL tastatur 
a*=INKEY* 

IF a*="M" OR a*="m" THEN GOTO diagrarame_ausgeben 
IF a*=“H" OR a*="h" THEN GOTO menue 
GOTO tastatur 

LABEL uerte_ändern 
CLS 

abfrage*=" die geändert werden können 11 
IF anzahl=0 THEN GOSUB abfragebox:GOTO menue 
zz_ändern=1:GOSUB bildaufbau 
LOCATE 3;2 = PRINT;diagramm$:LOCATE 32;2:PRINT" 
WERTE ÄNDERN » 

GOSUB wertetafel 

LOCATE 47;9:PRINT MODE(4)" 

LOCATE 47;10:PRINT M0DE(4) U Alte Werte mit >EN 
TER< " 

LOCATE 47; 11:PRINT MODE(4)" übernehmen 

LOCATE 47;12:PRINT M0DE(4)" 

FOR i = l TO anzah1:LOCATE 11;i+5:PRINT;wert 1(i) 
••LOCATE 33;i+5:PRINT;xachse*ii) :NEXT 
PRINT CHE*(7); 

FOR i=1 TO anzah1 
WINDOW CURSOR ON 
LOCATE 12;i+5 
INPUT"",wert2 

IF wert2=0 THEN wert 1(i)=wert 1 (i) ELSE uertl(i 
) =wert2 
NEXT 

PRINT CHR*(7); 

FOR i=l TO anzah1 
LOCATE 33;i+5 
INPUT””,xachse 1$ 

IF xachsel*="" THEN xachse*(i)=xachse*(i) ELSE 
xachse*(i)=xachsel* 

NEXT 

WINDOW CURSOR OFF 

LOCATE 47; 14 •• PRI NT "DI AG RAMMNAME 

LOCATE 47;15:PRINT diagramm* 

WINDOW CURSOR ON 
PRINT CHR*(7); 

LOCATE 47;15:INPUT"",diagramm1* 
diagramm1*=UPPER* C diagramm1*) 

IF diagramm1*="“ THEN diagramm*=diagramrn* ELSE 
diagramm*=diagraram1* 

WINDOW CURSOR OFF 
PRINT CHR*(7);:zz ändern=0 
LOCATE 52;2:PRINT" MENü-HAUPTMENü. (M/H) 

GOTO tastatur 

LABEL daten_speichern 
CLS 

abfrage*=" die gespeichert werden können 11 
IF anzahl=0 THEN GOSUB abfragebox:GOTO menue 
GOSUB bildaufbau 

LOCATE 3;2:PRINT;diagramm*•• LOCATE 32;2:PRINT" 
WERTE SPEICHERN " 

GOSUB dateien auf listen 

LOCATE 35;6:PRINT"BITTE HIER DEN DATEINAMEN EINGE 
BEN : " 

LOCATE 35;10:PRINT"ABBRUCH MIT "MODE!4)" >ENTER< 


LABEL namel 
WINDOW CURSOR ON 
LOCATE 35;8:INPUT"",dat* 

WINDOW CURSOR OFF 
IF dat*="" THEN CLS:GOTO menue 
IF LEN(dat*)>8 THEN :ALERT 3 TEXT" DATEINAME N 
ICHT LÄNGER ALS 8 ZEICHEN " BUTTON RETURN “ OK 
:GOTO namel 

OPEN #5 OUTPUT dat*+".dia" 

PRINT #5,anzah1 
PRINT #5,diagramm* 

FOR i=l TO anzahl 
PRINT #5,wert 1(i) 

PRINT #5,xachse*(l) 

NEXT 
CLOSE #5 

LOCATE 35;16:PRINT M0DE(4)" DATEN GESPEICHERT !! 

" : FOR warten = 1 TO 3000:NEXT 

CLS:zähler=l 

RETURN 


Listing "DIAGRAMM" 


LABEL daten laden 
CLS 

IF anzah1>0 THEN ALERT 3 TEXT” DATEN VORHANDEN ! 

! BITTE DATEN LÖSCHEN !! " BUTTON RETURN " OK 

":GOTO menue 

GOSUB bildaufbau 

LOCATE 3;2:PRINT;diagramra*:LOCATE 32;2:PRINT" 
WERTE LADEN “ 

GOSUB dateien_auf1isten 
IF ff=l THEN CLS:ff =0: GOTO menue 
LOCATE 35;6:PRINT"BITTE HIER DEN DATEINAMEN EING 
EBEN :" 

LOCATE 35;10:PRINT"ABBRUCH MIT "M0DE(4)" >ENT£R< 


LABEL name2 
WINDOW CURSOR ON 
LOCATE 35;8:INPUT"",dat* 

WINDOW CURSOR OFF 
IF dat*="" THEN CLS: GOTO menue 
IF LEN(dat*)>8 THEN ALERT 3 TEXT" DATEINAME NI 
CHT LÄNGER ALS 8 ZEICHEN " BUTTON RETURN “ OK ": 
GOTO name2 

IF FIND*(dat*+".DIA“)="" THEN : ALERT 3 TEXT" 
DATEI NICHT GEFUNDEN ! " BUTTON RETURN " OK ":GOTO 
name2‘- NEXT 

OPEN #5 INPUT dat*+".DIA" 

INPUT #5,anzahl 
INPUT #5,diagramm* 

FOR i=l TO anzahl 
INPUT #5,wert 1(i) 

INPUT #5,xachse*(i) 

NEXT 

CLOSE #5 

LOCATE 35;16:PR INT MODE(4)" DATEN GELADEN M ":F 
OR warten = 1 TO 3000 = NEXT 
CLS 

RETURN 

LABEL Berechnungen 
CLS 

abfrage*=" die berechnet werden können " 

IF anzah1=0 THEN GOSUB abfragebox:GOTO menue 
zz berechnen=1:GOSUB bildaufbau 
LOCATE 3;2:PRINT;diagramm*:LOCATE 32;2:PR1NT" 
BERECHNUNGEN " 

GOSUB wertetafel 

LOCATE 30;4:PRINT M0DE(4)" BERECHNUNGEN 

FOR i = l TO anzahl :LOCATE 10;i+5'-PRINT uertl(i) 

: NEXT 

FOR i=l TO anzah 1 :summeb=summeb+wert1(i):NEXT 
mitteIwert=summeb/anzahl 

FOR i = l TO anzah1:quadratsumme=quadratsumme+we 
rt1(i)^2:NEXT 

sx=SQR( Cquadrat summe-(an zahlet mittel wert •'2)) )/ 
(anzah1-1)1 

gx=SQR( (quadr at summe-(»nstth 1 Tel wer t'"2) ) )/ 

(anzah1)) 

LOCATE 30;8:PRINT " ANZAHL DER DATEN ="1 

USING"##########";anzah1 

LOCATE 30;8:PRINT " GESAMTSUMME ="; 

USING"######.###";sumraeb 

LOCATE 30;10:PRINT " QUADRATSUMME : 

";USING"######.###";quadratsumme 

LOCATE 30;12:PRINT » MITTELWERT :" 

;USING"######.###";mittelwert 

LOCATE 30; 14 PRINT " STANDARDABWEICHUNG N-l 
;USING 

LOCATE 30;16:PRINT " STANDARDABWEICHUNG : 0 ; 

USING"######.###";gx 

PRINT CHR*(7);:LOCATE 52;2:PRINT“ MENü-HAUPTMENü 
.(M/H) " 

zz_berechnen=0:sx=0:gx=0:roittelwert=0:summeb=0:qu 
adratsumme=0 
GOTO tastatur 

LABEL daten löschen 
CLS 

GOSUB bildaufbau 

LOCATE 3C;2:PRINT" UNTERMENÜ - LÖSCHEN " 

LOCATE 20;8:PRINT"DATENBESTAND LÖSCHEN. 

.";MODE(4)" Fl " 

LOCATE 20;10:PRINT"DATEIEN LÖSCHEN (DISKETTE). 
. ";MODE(4)" F2 " 

LOCATE 20;12:PRINT"I NS HAUPTMENUE. 


Listing ''DIAGRAMM" 


1 00 PC 9’88 
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»JOYCE-Bestellservice« 
Knüller für JOYCE-Fans 

- mache von Ihrem Angebot Gebrauch und bestelle hiermit: 


B _ 

Stck. 

Databox zum Sonderheft JOYCE Nr.1 
— viel Software für wenig Geld, Diskette 3“ 

30,- DM 

C 

Stck. 

Sonderheft JOYCE Nr. 2 

20,- DM 

M 

Stck 

Databox-Diskette Nr. 1 zum JOYCE SH 2 

30,- DM 

>5 _ 

_Stck. 

Databox-Diskette Nr. 2 zum JOYCE SH 2 

24,- DM 

16 _ 

__ Stck. 

Kombipack, enthält Diskette 1 + 2 zum 
JOYCE Sonderheft Nr. 2 

48,- DM 

D 

Stck. 

Sonderheft JOYCE Nr. 3 

20,- DM 

! 

Stck. 

Databox-Diskette Nr. 1 zum JOYCE SH 3 

30,- DM 

2 

Stck 

Databox-Diskette Nr. 2 zum JOYCE SH 3 

24,- DM 

3 

Stck. 

Kombipack, enthält Diskette 1 + 2 zum 
JOYCE Sonderheft Nr. 3 

48,- DM 

5 

Stck. 

JOYCE Programmsammlung Vol.1 

59,- DM 

6 

Stck. 

JOYCE Programmsammlung Vol.2 

49,- DM 

7 

Stck. 

JOYCE Programmsammlung Vol.3 

69,- DM 

s 

Stck. 

JOYCE Programmsammlung Vol.4 

59,- DM 


Porto/Verpackung 

tend 3,- DM. Ausland 5,- DM) 

Gesamtbetrag ______ 

Den Betrag bezahle ich mittels des beigefügten Verrechnungsschecks 
: - bitte um Lieferung per Nachnahme zuzüglich der Nachnahmegebühr 
I ()n das Ausland ist Nachnahme nicht möglich.) 


Unterschrift (bei Minderjährigen des gesetzt Vertreters) 


PC-Bestellservice 

Ich mache von Ihrem Angebot Gebrauch und bestelle hiermit: 

Software 


5’/4 


3Va 





229 

□ 

235 

□ 

Hyperkey (MS-DOS) 

DM 

99 ,- 

224 

□ 

223 

□ 

CGX Version 1.2 (MS-DOS) 

DM 

149 ,- 

244 

□ 

245 

□ 

CGX-Update für Version 10 

DM 

24 ,- 

225 

□ 

231 

□ 

Fraktal Generator (ms-dos) 

DM 

49 ,- 

227 

□ 

233 

□ 

BCi DisAsm/186 (MS-DOS) 

DM 

199 ,- 

228 

□ 

234 

□ 

ConText PC (ms-dos) 

DM 

99 ,- 

238 

□ 

239 

□ 

Maskedit Plus (MS-DOS) 

DM 

99 ,- 

236 

□ 

237 

□ 

MausAII (MS-DOS) 

DM 

29,90 

242 

□ 

243 

□ 

FontEdit PC (MS-DOS) 

DM 

99 ,- 

129 

□ 

185 

□ 

PC Spielebox No. 1 

enthält Bimbo II und Bouncer 

DM 

49 ,- 

1291 □ 

1292 □ 

PC Spielebox No. 2 

enthält Jackey und Starvision 

DM 

49 ,- 

161 

□ 

162 

□ 

Know PC (MS-DOS) 

Das Spiel für alle 

DM 

49 ,- 


□ Den Betrag bezahle ich mittels des + PortoA/erpackung 
beigefügten Verrechnungsschecks. (Inland 3,- dm. Auslan d 5.- DM) 

□ Ich bitte um Lieferung per Nach¬ 
nahme zuzüglich der Nachnahmege- Gesamtbetrag 
bühr (nur innerhalb der BRD) 


Dalum 


Unterschritt (bei Minderjährigen des geselzl Vertreters) 


Bestellservice für CPC 464 - 664 - 6128 
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MS-DOS Anwendungen^für Profis — und solche, die es werde n wollen 


BCi 


•3 


BCi DisAsm erschließt jedes Programm! 

=0i DisAsm - Der intelligente Disassembler 
= 0i DisAsm ist ein intelligenter, selbsttätig dokumentie- 
=-"der MS-DOS Disassembler Die ausgefeilten Routi- 
**=n im BCi DisAsm analysieren in kürzester Zeit selbst D i S AS m«. 

«cmplexen und umfangreichen Programmcode und 
re qen dabei potentielle Problempunkte auf. 

= Ci DisAsm - Das Lernmittel 

5 e brauchen kein Spezialist in Assembler-Programmierung zu sein. BCi DisAsm pro- 
--ziert aus jedem beliebigen Programm ihres IBM-kompatiblen Computers ein gut do¬ 
mentierles. leicht verständliches Assemblerlisting. 

3Ci DisAsm - Einfach in der Handhabung 

BCi DisAsm kann sowohl über Parameter von der DOS-Kommandozeile aus als auch 
r:eraktiv über Menüs gesteuert werden. Es besteht keine Notwendigkeit, neue Befeh- 
e zu lernen oder ständig im Handbuch nachzuschlagen. 

Minimale Systemanforderungen 

256 kB RAM, 8088/8086/80186/80286 oder 80386 CPU, MS-DOS oder PC-DOS Ver- 
son 2 .0 oder größer 

BCi DisAsm wird Ihnen bei den folgenden Schritten helfen: 

1. Lernen Sie Assembler-Programmierung, wenn Sie möchten. 

2. Entdecken Sie, warum Programm XYZ auf ihrem Rechner nicht läuft und tun Sie et¬ 
was dagegen. 

3. Ändern oder entfernen Sie Programmteile. 

4. Sichern Sie sich gegen destruktive Programme ab Finden Sie einen “Virus“ und 
entfernen Sie ihn. 

5. Integrieren Sie Code aus compilierten Programmen in eigene Anwendungen. 

6. Erhöhen Sie die Kompatibilität Ihrer Software. 

7. Passen Sie Software an verschiedene MS-DOS-Versionen an. 

>987 BCi, West Qermany und USA Loius ist eingetragenes Warenzeichen der lolus Corp 
US-DOS ist eingetragenes Warenzeichen der Microsoft Corp. 


Best .-Nr. 227 
Best -Nr. 233 


5 1/4" Disk 
3 1/2“ Disk. 


199,- DM* 

(unverbindl. Prelsempf.) 


CGX V 1.2 


Turbo Pascal Toolbox 
der Superlative 


CGX (Color Gralik EXtension) isl eine Sammlung von über 100 leistungsfähigen Routinen, mit denen gra¬ 
fisch beeindruckende und benulzerfreundliche Turbo Pascal-Programme sehr einfach geschrieben werden 
können 

Mit CGX können aus ein und demselben Quelltext lauffähige Programme für 3 verschiedene hochauflösen¬ 
de Grafikmodi erzeugt werden 

EGA Farbgrafik mii 16Farben PC 1512 Spezialmodus mit 16Farben CGA Hires-Grafik mit 2 Farben 
Oie CGX-Prozeduren sind durch Verwendung modernster Algorithmen mit Assembler äußerst effektiv 
Die KERNEL-Bibliolhek stellt den CGX-Betriebssystemkern mit einem neuen Bildschirmtreiber dar Dies er¬ 
möglicht verschiedene Schrifttypen mit Unterstreichen, Fettschrilt, Exponenten und Indizes und vieles 
mehr. 

Die GRAPHIK-BibliOthek enthält zahlreiche Grafik-Prozeduren mit Features wie Ellipsenbögen. Füllproze¬ 
duren mit Mustern und über 100 Farben, Verzerren und Biegen von Biidschirmausschnitlen 
Die MOUSE-Blbliothek erlaubt einfache Erslellungvon mausgesieuerten Programmen 
Mir der HARDCOPY-Bibliothek können Ausdrucke beliebiger Bildausschnitte in frei wählbaren Formaten er¬ 
stellt werden 

Die SCREEN-Biblliothek erlaubt das Ablegen von Bildschirmbereichen im Hauptspeicher oder auf Diskette 
Mit der WINDOW-Bibliolhek sieht ein System zur Verwaltung von Text- und Gratikfenslern zur Verfügung, 
welche die Grundlagen einer modernen Menuefechnik darstellen 

N e u : Die Bibliothek CXKEYSIM ermöglicht, mittels Cursortasten eine Maus zu simulieren 
Im Ueierumfang enthalten: 

Umfangreiches deutsches Handbuch Füllmustereditor im Quellcode • Zeichensatzeditor im Quellcode 
Dokumeniierter Quellcode des Fraktalgenerators 

Konfiguration: Turbo Pascal 3 0 auf MS-DOS. unterstützte Grafikmodi: EGA-, CGA- oder PC 1512 Grafik- 
karte 


Best.-Nr. 224 
Best -Nr. 223 


5 1/4" Disk 
3 1/2" Disk. 


149,- DM* 


Update-Service: 

Bei Zusendung Ihrer CGX-Originaidiskette erhallen Sie das Update von Version 1 0 aufl 2 zum Preis von: 


24, — DM 


FRAKTAL 

Generator 


Gönnen Sie sich eine Reise 
in das Land der Fraktale 


Eine neue Dimension für die Freunde fraktaler Grafiken, genießen Sie die 
phantastische Farb-Fähigkeit Ihres PC: Über 100 (!) Farben stellt Ihnen 
dieses Programm bei einer Auflösung von 640 x 200 Punkten zur Verfü¬ 
gung. Und das berühmte »Apfelmännchen« braucht dank ausgefeilter Al¬ 
gorithmen nur noch ca. 3 Minuten für seine Entstehung - keine stunden- 
angen Wartezeiten hindern Sie mehr daran, eine märchenhafte Welt voller 
Farben und Formen zu entdecken. 



Und dazu der Bedienungskomfort: 

- Bedienung per Maus und Pulidown- 
Menüs oder per Cursor 

- Hardcopy auf Knopfdruck 

- Speichern von Bildern auf Diskette 

- Umschalten zwischen verschiedenen Bil¬ 
dern 

- Nachträgliches Ändern der Farben 

- Vergrößerte Ausschnitte durch Auswahl¬ 
rahmen 

- Rechentiefe bis 9999 


Best.-Nr. 225 
Best.-Nr. 231 


5 1/4" Disk. 
3 1/2" Disk. 


erhältich für: 

- PC's mit EGA Karte & 
Microsoftkompatibler 
Maus 

- Schneider PC 1512/ 
PC 1640 

- Atari PC 

NEU: Jetzt auch für 

Cursorsteuerung 


49,- DM 


bringt Ihrer Tastatur das Zaubern bei 

Legen Sie ganze Texte auf 1 Taste! 

Aktivieren Sie Befehlsfolgen mit 1 Tastendruck! 

Recorderfunktion zur Makroaufzeichnung • mit “Copy Cursor" wird Bild¬ 
schirmtext zum Makro • gezieltes Abspeichern mit Kommentaren • kom¬ 
fortabelste Editiermöglichkeiten aller Makros • verschiedene Makros auf 1 
Taste • “Chaining“: Makros rufen sich gegenseitig auf • “Sendkeys“: Ma¬ 
kros in der Batch-Datei • Hyperkey läuft im Hintergrund anderer Program¬ 
me • mit Makros für Basic- und Pascalprogrammierer 
mit TSR-Verwaltung 

Aufiisten aller geladenen speicherresidenten Programme • Angabe ihres 
Speicherplatzbedarfs und der verwendeten Interruptvektoren • Berech¬ 
nung des noch zur Verfügung stehenden Speicherplatzes • Markieren von 
residenten Programmen beim Ladevorgang • Gefahrloses Entfernen 
Alle Programme mit umfangreicher Dokumentation. 


Best.-Nr. 229 
Best.-Nr. 235 


51/4" Disk. 
3 1/2" Disk. 


99.- DM 

(unverbindl. Preisempf.) 


FontEdit F*c 


ConText Pc 


Universeller Zeichensatz- 
und Symboleditor 
Eigene Zeichensätze selbst erstellt 

Vektorzeichensätze, 100% kompatibel zum Borlands Graphics Inter¬ 
face (BGI) • bis zu 256 Zeichen in einem Zeichensatz (extended) ■ Zei¬ 
chen beliebig vergrößerbar und drehbar • voll menuegesteuert • Zei¬ 
cheneditor mit horizontalem und vertikalem Spiegeln • nun auch Um¬ 
laute und beliebige Sonderzeichen möglich. 

Im Lieferumfang 

Drei verschiedene Zeichensätze mit Umlauten und '§' • Griechischer 
und gotischer Zeichensatz • Zeichensätze für sehr große und sehr klei¬ 
ne Schrift • Zeichensatz "Script“ • Kursiver “Sanserif-Zeichensatz • 
Beispielprogramm zur Anwendung grafischer Objekte ■ Ausführliches 
Handbuch mit Beschreibung des Aufbaus der Vektorzeichensätze, de¬ 
ren Header und Eckwerte • Beschreibung der Routinen. 

Symbole für Grafikprogramme & Spiele 

Spielfiguren als Vektor-Objekte • Grafiken mittels BGI gestaltet • Auch 
Animationen (Arcadespiele) mittels "Getlmage“ und "Putimage“ möglich. 

Konfiguration: 

PC XT/AT mit 384 kByte oder mehr, 1 Diskettenlaufwerk bzw. Festplatte, MS-DOS ab Version 
2 0. CGA-, MCGA-, EGA-, VGA-, AT&T mit 400 Zeilen, 3270 PC und Herculeskarten werden 
unterstützt Nutzbar mit Turbo Pascal 4.0, Turbo C 1 5, Turbo Prolog 2.0 Mittels der mitgelie¬ 
ferten Treiberroutinen auch anwendbar mit anderen grafikfähigen Pascal- und C-Compiiern 


Best.-Nr. 242 
Best.-Nr. 243 


5 1/4“ Disk. 
3 1/2“ Disk. 


99,- DM* 

(unverbindl Preisempf.) 


- Die Formel-I-Textverarbeitung - 

- dank effizienter Assemblerprogrammierung - 

Einfachste Bedienerlogik • WordStar-kompatible Tastaturbelegung • 
Hilfsmenüs für jede Situation • alle Standards einer Textverarbeitung 

Und das macht CONTEXT PC zum Star unter anderen Programmen: 
Rechnen im Text • elektronischer Kalender • automatische Zeit- und 
Datumseinfügung • Grafikzeichen in den Text laden • zweispaltiges 
Formatieren • perfekte Silbentrennung • gleichzeitiges Bearbeiten 5 unab¬ 
hängiger Texte • umschaltbare Textdarstellung (25 oder 35 Zeilen) • 
“WYSIWYG" ■ Anpassung an alle handelsüblichen Drucker ■ Makrobele¬ 
gung der Tastatur • integrierter Dateimanager • DOS-Aufrufe aus dem 
Programm heraus • ideal als Programmeditor 

- maximale Leistung bei minimalem Speicherbedarf - 

Notwendige Konfiguration: 

PC XT/AT mit 256 kByte oder mehr, 1 Diskettenlaufwerk bzw Festplatte, MS-DOS ab Version 2 0 

CGA-, Hercules- und EGA-Grafikkarten werden unterstützt 

Zum Lieferumfang gehört ein umfangreiches deutsches Handbuch inklusive Tutorial 


Best -Nr 228 
Best.-Nr 234 


5 1/4“ Disk. 
31/2“ Disk. 


99,- DM* 

(unverb. Preisempf.) 


Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 3. - DM bzw. für das Ausland 5, - DM Porto und Verpackung. Bitte benutzen Sie die Bestellkarte 

DMV ■ Abt. Software ■ Postfach 250 ■ 3440 Eschwege 















i—PC 


.";MODE(4)" F3 " 

LOCATE 20;16:PRINT"IHRE WAHL " 

REPEAT 

a=INKEY 

UNTIL a<>-l AND a<=318 AND a>=315 
a=a-314 

IF a=3 THEN CLS:RETURN 

ON a GOTO datenbestand_löschen,dateien_1öschen 

LABEL datenbestand_löschen 
CLS 

abfrage*=" die gelöscht werden könnten " 

IF anzah1=0 THEN GOSUB abfragebox:GOTO daten_lö 
sehen 

GOSUB bildaufbau 

LOCATE 28;2:PRINT" DATENBESTAND LÖSCHEN " 
LOCATE 20; 10:PRINT 11 WOLLEN SIE DIE DATEN WIRKLICH L 
ÖSCHEN ? (J/N) " 

LABEL tasten 
a*=INKEY$ 

IF a*="J" OR a*="j" THEN CLEAR: LOCATE 20; 14-.PRIN 
T"DATEN SIND GELÖSCHT !!":DIM uert 1 ( 15),xachse*( 15 
> .hochwertlf15),hu(15),uinkelwert(16):FOR uarten= 1 
TO 3000:NEXT:CLS:GOTO menue 
IF a*="n" OR a*="N" THEN CLS:GOTO menue 
GOTO tasten 

LABEL dateien löschen 
CLS 

GOSUB bildaufbau 

LOCATE 28;2:PRINT" DATEIEN LÖSCHEN " 

GOSUB dateien_auf1isten 

LOCATE 35;6:PRINT"HIER DIE ZU LÖSCHENDE DATEI EIN 
GEBEN !" 

LOCATE 35;10:PR INT"ABBRUCH MIT";MODE(4>“ >ENTER< " 

LABEL eingabe_löschen 
WINDOW CURSOR ON 
LOCATE 35;8:INPUT"",lösch« 

WINDOW CURSOR OFF 

IF LEN(lösch*)=0 THEN :GOTO daten_löschen 
IF LEN(lösch*)>8 THEN :ALERT 3 TEXT"DATEINAME 
NICHT LANGR ALS 8 ZEICHEN" BUTTON RETURN " OK »: 
GOTO eingabe_löschen 

IF FIND*?lösch$+".DIA")="" THEN : ALERT 3 TEXT 
" DATEI NICHT GEFUNDEN ! " BUTTON RETURN " OK “:GO 
TO eingabe_löschen 
KILL lösch*+".DIA" 

LOCATE 35;14:PRINT M0DE<4)" "; lösch*".DIA IST 

GELÖSCHT !! " 

FOR warten=1 TO 4000--NEXT 
GOTO daten_löschen 

LABEL bildaufbau 

BOX 10;10,615,345 WIDTH 3:B0X 10;357,615,40 WIDTH 
3 FILL WITH 4 

grossuert=MAX(uert1(1),wert 1(2),wert 113),wert 1(4) 
,wertl(5),wertl!6),wertl(7),uertl(8),uertl(9), wert 
1(10),wert 1(11),uert 1 (12),wert 1( 13),wert 1 ( 14),wert 
1(15)) 

RETURN 

LABEL uertetafe 1 

x=8:LOCATE 8;4:PRINT MODE (4)" WERTE ":GOSUB au 
s 

IF zz_berechnen=1 THEN RETURN 
x=30:LOCATE 25;4:PRINT M0DE(4)" BESCHRIFTUNG X- 
ACHSE / KREISDIAGR. GOSUB aus 
IF zz_ändern=1 THEN RETURN 
LOCATE 44;9:PRINT "BITTE BEACHTEN !!“ 

LOCATE 44; I0:PRINT"Der größte Wert sollte 99 

999" 

LOCATE 44; 11:PRINT"nicht übersteigen,der kleins 

te" 

LOCATE 44;12:PRINT"Wert nicht kleiner als 1 sein 

LOCATE 44; 13:PRINT"X-Achse nicht größer als 4 Zei 

RETURN 

LABEL aus 
FOR i = l TO anzah1 

LOCATE x ; i +5: PRI NT USING"##" ; i ; :PFINT" . 11 

NEXT 

RETURN 


Listing "DIAGRAMM" 


LABEL diagrammbild 
CLS 

BOX 3;10,628,365 WIDTH 3:B0X 3;365,628,32 WIDTH 
3 FILL WITH 4 

LINE 40;40,620;40 WIDTH 3:LINE 60;20,60;350 WID 
TH 3 

grossuert=MAX(wertl(l),wertl(2) 1 wertl(3),uertl 
(4),wertl(5),uertl(6),wertl(7),wertl(8),wertl(9),w 
ert1(10),uert1(11),wert 1(12),wert 1(13),uert1(14),u 
ertll 15)) 

grw=grosswert 
sehrittweite=grossuert/10 
FOR i=340 TO 40 STEP -30 

IF gru<10 THEN MOVE 7;i-4:PRINT USINGgross 
wert:GOTO zz 

MOVE 7;i-4:PRINT USING"#####";I NT(grossuert) 

LABEL zz 

grossuert=grosswert-schrittweite 
LINE 50;i,60;i WIDTH 3 
NEXT 

grossuert=schrittweite*10 
faktor=grossuert/300 

FOR i=l TO anzah1:hochuert1(i)=INT(uert1(i)/fakto 
r):NEXT i 
RETURN 

LABEL winkelberechnung 
faktor lrgrosswert/360 

FOR i=l TO anzah1:hochwert 1(i)=CEILING(uert1(i)/ 
faktor1):NEXT i 

FOR i = 1 TO anzah1:summe = surame+hochuert1!i):NEXT 

i 

faktor2=summe/360 

FOR i— 1 TO anzah1:winkeluert(i)=hochwert1(i)/f 
aktor2:NEXT 

OPTION DEGREES 
USER SPACE 800,490 
uw 1 = 0 

uu2=winke1uert(1) 

RANDOMIZE 
RETURN 

LABEL uerte_anzeigen 
LOCATE 4;4:PR3NT MODE(4)" WERTE “ 

FOR i=l TO anzahl 

LOCATE 4;i+5:PRINT USING"\ \ =";xachse*(i); 

PRINT;wert1(i) 

NEXT 

USER SPACE 600,400 
summe=0 
RETURN 

LABEL abfragebox 

ALERT 3 TEXT" Es sind keine Daten vorhanden ",ab 
frage* BUTTON RETURN " OK 
RETURN 

LABEL dateien_auf1isten 

LOCATE 6;4:PRINT M0DE(4)" INHALTSVERZEICHNIS " 
LOCATE 6;5:PRINT M0DE!4>" \DIAGRDAT 
CD\DIAGRDAT 

J=7 

FOR i=l TO 15 STEP 2 
LOCATE 3;j 

PRINT;FIND*("*.DIA",i) 

LOCATE 17;j:PR INT;FIND*("*.DIA",i+1) 
j=j + l 
NEXT 

IF FIND*( "*.DIA") = "" THEN ALERT 3 TEXT" Noch kei 
ne Dateien vorhanden !! " BUTTON RETURN " OK ":ff 

=1:RETURN 
RETURN 


Listing "DIAGRAMM" 
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SONDERAKTION 

Wir räumen unser Lager! 

Aus Restbeständen unserer beliebten Zeitschrift “PC Schneider International“ sowie von diversen Databoxen 
früherer Jahrgänge sind noch unterschiedliche Stückzahlen nachfolgender Ausgaben vorhanden, die Sie jetzt 
besonders günstig erwerben können. 



Bestellen Sie rasch , damit Ihre Bestellung noch berücksichtigt werden kann! Sollten von Ihnen gewünschte Aus¬ 
gaben bereits vergriffen sein, behalten wir uns vor, statt dessen andere Ausgaben zu liefern. Die 1987er und 1988er 
Ausgaben von “PC Schneider International“ sind wie gewohnt zu den normalen Konditionen mittels der Bestell¬ 
karte erhältlich. 


Best.-Nr. 363 Restpostenpack 

IT, Ja, senden Sie mir die nachfolgend angekreuzten 6 Ausgaben der Zeitschrift “PC Schneider Internatio¬ 
nal“ im praktischen DMV-Sammelordner zum sagenhaft günstigen Preis von nur 25, - DM (Bei Bestel¬ 
lungen aus dem Ausland 28, - DM}. 


□ 

Ausgabe Nr. 10/1985 

Nr. 

□ 

Ausgabe Nr. 12/1885 

□ 

□ 

Ausgabe Nr. 1/1986 

Nr. 

□ 

Ausgabe Nr. 2/1986 

□ 

□ 

Ausgabe Nr. 3/1986 

□ 

□ 

Ausgabe Nr. 4/1986 

□ 

□ 

Ausgabe Nr. 5/1986 

□ 


6/1986 nicht mehr lieferbar 
Ausgabe Nr. 7/1986 
8/1986 nicht mehr lieferbar 
Ausgabe Nr. 9/1986 
Ausgabe Nr. 10/1986 
Ausgabe Nr. 11/1986 
Ausgabe Nr. 12/1986 



Ja, ich möchte von dem äußerst günstigen Angebot Gebrauch machen, 6 Databoxen nach meiner Wahl zu be¬ 
stellen. Bitte liefern Sie: 

□ Best-Nr. 364 6 Stck. Databox-Cassetten für CPC für nur 45, - DM (Best, aus dem Ausland 48, - DM) 

□ Best-Nr. 365 6 Stck. Databox-Disk. 3“ für CPC für nur 75, - DM (Best, aus dem Ausland 78, - DM) 

□ Best-Nr. 366 6 Stck. Databox-Disk. 3“ für PCW Joyce für nur 75, - DM (Best, aus dem Ausland 78, - DM) 

Folgende Databox-Ausgaben soll meine Bestellung beinhalten (bitte ankreuzen): 



Cassette CPC 

3“ 

Disk CPC 

3 “Disk Joyce PCW 

10/1985 

□ 

10/1985 

nicht lieferbar 

10/1985 

nicht lieferbar 

11/1985 

□ 

11/1985 

nicht lieferbar 

11/1985 

nicht lieferbar 

12/1985 

□ 

12/1985 

nicht lieferbar 

12/1985 

nicht lieferbar 

1/1986 

□ 

1/1986 

nicht lieferbar 

1/1986 

nicht lieferbar 

2/1986 

□ 

2/1986 

n 

2/1986 

nicht lieferbar 

3/1986 

n 

3/1986 

□ 

3/1986 

nicht lieferbar 

4/1986 

□ 

4/1986 

□ 

4/1986 

nicht lieferbar 

5/1986 

□ 

5/1986 

n 

5/1986 

□ 

6/1986 

□ 

6/1986 

□ 

6/1986 

□ 

7/1986 

□ 

7/1986 

□ 

7/1986 

□ 

8/1986 

□ 

8/1986 

□ 

8/1986 

□ 

9/1986 

□ 

9/1986 

□ 

9/1986 

□ 

10/1986 

□ 

10/1986 

n 

10/1986 

□ 

11/1986 

□ 

11/1986 

□ 

11/1986 

n 

12/1986 

□ 

12/1986 

□ 

12/1986 

□ 


□ Den Gesamtbetrag von_DM bezahle ich mittels des beigefügten Verrechnungsschecks 

(Vörkasse) 

□ Ich bitte um Zusendung per Nachnahme, zuzüglich der Nachnahmegebühr. 

(Diese Versendungsart ist nur innerhalb der BRD möglich.) 


Name, Vorname Straße, Haus-Nr. PLz. Ort 


Datum, Unterschrift (bei Minderjährigen Unterschr. des ges Vertreters) 

Seite heraustrennen und noch heute absenden an: 

DMV Verlag • Abt. Versand • Pöstfach 250 • 3440 Eschwege 
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BASIC 2 
de Luxe 

- Programmieren 
mit Komfort 



Es gibt einige Aspekte von 
BASIC 2, die das Programmie¬ 
ren in dieser Sprache nicht all¬ 
zu bequem machen. Mit einigen 
kleinen Zusatzprogrammen 
kann man diesen Problemen 
jedoch recht einfach aus dem 
Weg gehen. 


Zwei Punkte gibt es (neben BASIC 2 
selbst...), die eine effektive Pro¬ 
grammentwicklung unter BASIC 2 zu 
einem mühsamen Unterfangen ma¬ 
chen: Zum einen der doch recht um¬ 
ständliche und in vielen Punkten man¬ 
gelhafte Editor, zum anderen die feh¬ 
lende (bzw. kaum brauchbare) Mög¬ 
lichkeit des Listingdrucks. Was BASIC 
2 nicht bietet, bieten vielleicht andere 
Programme, notfalls muß man eben 
immer zwischen einem externen Editor 
und BASIC 2 wechseln. Auf die Dauer 
ist das nicht allzu bequem, also träumt 
man von einer integrierten Entwick¬ 
lungsumgebung, wie sie zum Beispiel 
die Borland-Produkte aufweisen. Da¬ 
mit der Traum auch nicht zu Schaum 
wird, ist allerdings etwas Tipparbeit 
angesagt. 

Unter einem Dach 

Wer über eine Festplatte verfügt, einen 
’Lieblingseditor’ besitzt und trotz al¬ 
lem intensiv in BASIC 2 program¬ 
miert, wird das folgende Shell (neu-un- 
deutsch für 'integrierte Benutzerober¬ 
fläche’, aber angenehm kurz) bald 
nicht mehr missen mögen. Es ermög¬ 
licht den schnellen Wechsel zwischen 
BASIC 2, einem Editor und einem 
List-Programm, als Zugabe können 
auch beliebige andere Programme auf¬ 
gerufen werden, ohne daß man das 
Shell verlassen muß. Eine Festplatte ist 
dabei unbedingt notwendig, da immer 


wieder zwischen GEM/BASIC 2 und 
normalen Programmen gewechselt 
wird. Ist die Platte schnell genug, 
merkt man den Wechsel zwischen den 
einzelnen Programmen gar nicht mehr. 

Das Shell besteht aus drei Program¬ 
men, die hier im Heft zu finden sind, 
sowie den anderen Teilen, die zum Be¬ 
trieb von BASIC 2 und dem jeweiligen 
Editor nötig sind. Das Herz aller Dinge 
ist XBASIC2.EXE (Listing 1), wel¬ 
ches die einzelnen Teilprogramme ver¬ 
waltend unter einen Hut bringt. Von 
ihm aus kann durch einfachen Tasten¬ 
druck zwischen Editor, BASIC 2 und 
Lister (Optionen 1 -3) gewechselt wer¬ 
den. Mit der Option 4 wird eine neue 
Arbeitsdatei gewählt, Option 5 erlaubt 
die Eingabe beliebiger DOS-Befehle 
oder den Aufruf anderer Programme, 
wobei nach deren Ende zum Shell zu¬ 
rückgekehrt wird (Bild 1). 

Das Programm XKONFIG2.EXE (Li¬ 
sting 2) ermöglicht den Zuschnitt des 
Shells auf die jeweiligen Gegebenhei¬ 
ten (Editorname usw.), XLIST.EXE 
(Listing 3) ist ein einfaches Listpro¬ 
gramm zur Ausgabe auf Drucker oder 
Bildschirm mit diversen Extras. Mit 
den Optionen 1-5 wird hier der jeweili¬ 
ge Ausgabe Vorgang gestartet, die Ta¬ 
sten 6 und 7 schalten das Ausgabegerät 
und die Zeilennummern an und aus, 
der jeweilige Zustand ist in der ober¬ 
sten Zeile sichtbar (Bild 3). XLIST 
deckt zwar nicht alle Anforderungen ab 
(es wäre noch ein formatierter Aus¬ 


druck mit Zeilennummern usw. denk¬ 
bar), besser als LLIST unter BASIC 2 
ist es jedoch allemal. Auch ist die Ver¬ 
wendung von XLIST.EXE nicht zwin¬ 
gend, wenn Sie ein besseres Programm 
in Ihrem Repertoire haben, kann es 
über XKONFIG2 in das Shell einge¬ 
bunden werden. 

Geschrieben wurde das Shell in Turbo 
Pascal 4.0, da diese Sprache einen be¬ 
quemen Aufruf externer Programme 
erlaubt und trotz allem kompakte Pro¬ 
gramme erzeugt. Letzteres ist beson¬ 
ders wichtig, da das Shell beim Aufruf 
der einzelnen Programme im Speicher 
bleibt und dort einiges an Platz belegt, 
aber davon später mehr. Wer nicht im 
Besitz von Turbo Pascal 4.0 ist, findet 
die Programme auch in compilierter 
Form auf der DATABOX. 

Installation 

Zur Inbetriebnahme des Shells sind ne¬ 
ben dem Eintippen der einzelnen Pro¬ 
grammteile auch noch einige zusätzli¬ 
che Arbeiten nötig, die im folgenden 
beschrieben sind. Da BASIC 2 nur un¬ 
ter GEM läuft, muß eine Batch-Datei 
erstellt werden, die den Start von GEM 
mit zwei Parametern erlaubt. Die ein¬ 
fachste Form ist 
CD \ GEMSYS 
GEMVDI %1 %2 

Über dieses File GEM.BAT (o.ä.) 
wird später BASIC 2 in der Form 
’GEM BASIC2 programm’ aufgeru- 
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BASIC 

2 - S h e 1 1 

V. 1.02 


1) 

Editor- 



2) 

Baslc2 



3) 

Listira 



4) 

Wcrkflle 



5) 

DOS-Befehl 



0) 

Ende 



Werkfile: C:\BASIC2\TEST.BAS 



Bitte Toste c±“Ocken 


Bild 1: Optionen des Shells 


fen, die einzelnen Parameter für das 
Batch-File werden vom Shell gesetzt. 
Damit GEM direkt zu BASIC 2 ge¬ 
langt, muß entweder ein Pfad auf das 
Verzeichnis zeigen, in dem BASIC 2 
steht (z.B. über den Befehl 
’PATH = ...;C: \ BASIC2;’ 
in AUTOEXEC.BAT), als Alternative 
können auch die Dateien BASIC2. APP 
und BASIC2.RSC in das Verzeichnis 
GEMAPPS verlagert werden, letztere 
Möglichkeit ist vorzuziehen, da sie 
dem GEM-Standard entspricht. Je nach 
verwendetem Editor müssen bei Bedarf 
auch noch zusätzliche Werte eingestellt 
werden. Ist der Editor ein einteiliges 
Programm, wie z.B. der Norton Editor 
oder EDIT, braucht nichts weiter un¬ 
ternommen werden. 

Arbeitet der Editor jedoch mit Over¬ 
lays, muß noch ein zusätzlicher Pfad 
auf diese Overlays mit APPEND defi¬ 
niert werden. Für die Verwendung von 
CONTEXT im Shell sollten also noch 
folgende Befehle in AUTOEXEC 
.BAT enthalten sein: 

’PATH=... C:\CONTEXT;’ 
und 

’APPEND C: \CONTEXT;’. 


Auch die übrigen 
Dateien sollten in¬ 
nerhalb eines 
Suchpfades ste¬ 
hen, wenn auf 
BASIC2 sowieso 
ein Pfad zeigt, 
können die Teile 
des Shells auch in 
das Verzeichnis 
von BASIC 2 ko¬ 
piert werden. 


Konfiguration 

Nach dieser globa¬ 
len Installation muß das Shell noch an 
die Wünsche des jeweiligen Anwen¬ 
ders angepaßt werden, dies geschieht 
am einfachsten über das Programm 
XKONFIG2.EXE. Es erzeugt im 
Hauptverzeichnis der Festplatte die 
Datei KONFIG 
.XBS, die vom 
Shell auf Lauf¬ 
werk C: erwartet 
wird und folgende 
Informtionen ent¬ 
hält: ’Editomame 
(mit Pfad)’ enthalt 
die Angabe des 
kompletten Pfades 
und des Namens 
des Editors sowie 
eventuelle zusätz¬ 
liche Parameter 
für den Editor, die 
beim Aufruf vor 
dem Dateinahmen stehen. Die kom¬ 
plette Angabe von Pfad und Editoma- 
me mit Extension wird vom Shell er¬ 
wartet, auch wenn ein Pfad auf das ent¬ 
sprechende Verzeichnis zeigt! 

Unter ’Editorzusätze...’ können weite¬ 
re Parameter definiert werden, die 
beim Aufruf nach dem Dateinamen 
übergeben werden. Beim Norton 
Editor wäre dies 
beispielsweise 
7DB’, damit die 
Grafikkarte des 
PC 1512 richtig 
erkannt wird, bei 
CONTEXT könn¬ 
te hier ’!tON’ ste¬ 
hen, um beim Start 
direkt in den Non- 
Document-Modus 
zu kommen. Für 
das ’Listpro- 
gramm’ muß wie 
beim Editor ' der 


komplette Pfad angegeben werden, 
hier kann das Programm XLIST.EXE 
oder ein beliebiges anderes Programm 
angegeben werden. 

Als ’Startdatei für GEM’ werden Pfad 
und Name des oben beschriebenen 
Batch-Files für GEM eingegeben. Bild 
2 zeigt eine exemplarische Anpassung 
mit CONTEXT als Editor. Der Aufruf 
des Shells erfolgt über XBASIC2, wo¬ 
bei zusätzlich der Name der zu bearbei¬ 
tenden Datei angegeben werden kann. 
Fehlt er, wird er vom Shell erfragt, 
über Option 4 kann er auch nachträg¬ 
lich geändert werden. In allen Fällen ist 
darauf zu achten, daß der komplette 
Pfad angegeben wird, also beispiels¬ 
weise 

C: \ BASIC2 \ TEST.BAS! 

Die Konfigurationsdatei KONFIG 
.XBS kann auch mit einem normalen 
Texteditor erstellt werden. Sie besteht 


aus vier Zeilen: Zeile 1 den Pfad und 
Namen des Editors, Zeile 2 die Zusätze 
für den Editor, Zeile 3 Pfad und Na¬ 
men des Listers und Zeile 4 die Anga¬ 
ben für das Batch-File zum Start von 
GEM, es empfiehlt sich, an Anfang 
und Ende jeder Zeile ein Leerzeichen 
zu setzen. 

Kompatibilität 

Getestet wurde das Shell mit den Pro¬ 
grammen CONTEXT, EDIT und NE 
als Editor, wenn alle Pfade über PATH 
und APPEND korrekt gesetzt wurden, 
sollte es keine Probleme geben. Letzte¬ 
re können jedoch je nach verwendeter 
GEM-Installation auftreten und sich in 
verringertem Speicherplatz unter BA¬ 
SIC 2 bemerkbar machen. Bei Vollaus¬ 
bau auf 640 KB RAM sollte es keine 
Probleme geben, auch auf einem PC 
1512 mit dessen GEM-Version trat kei¬ 
ne Verringerung des unter BASIC 2 



Bild 3: Listings nach Geschmack 


BASIC 2 - Stell - Konfiaraticn v.I.Ol 


Editcr-nane (mit Pfod): c:\ccntext\ccntext.co 
EdltorzusBtae nach Filename: !'CN 
Listtrosr-anm (mit Pfod): c:\tools\xlist.exe 
Sta-tdatei fCr GEM: c:\batch\autogem.bat 


Sctreibe Datei C:\KC»JFIG.XBS —> Taste chtfcken 


Bild 2: Einfache Anpassung 
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verfügbaren Speichers auf. Wurde je¬ 
doch die Hercules-Version verwendet 
(ohne Speicherausbau), verringerte 
sich der Speicher auf rund 18 KB, nach 
Entfernung der beim Autor im Normal¬ 
fall installierten Residenten standen 
immerhin noch rund 50 KB zur Verfü¬ 
gung. Gibt es also Probleme beim Start 


von GEM (im Extremfall wird der 
Desktop kurzzeitig geladen und kehrt 
dann zum Shell zurück) geben, müssen 
alle residenten Programme außer 
KEYBGR und MOUSE aus AUTO¬ 
EXEC.BAT entfernt werden. Gleiches 
gilt auch, wenn BASIC 2 sich zwar 
starten läßt, bei der Eingabe von 


’? FRE’ jedoch einen freien Speicher 
anzeigt, der für die zu erstellenden An¬ 
wendungen nicht ausreicht. (Im Notfall 
muß man eben besagte 18 Chips für die 
Erweiterung investieren...) 

Wir wünschen Ihnen jedenfalls viel 
Vergnügen mit dem BASIC2 im neuen 
Gewand. (Michael Anton/me) 


PROGRAM XBASIC2; 

(* Shell für Basic 2, List Utility und beliebigen 
Editor *) 

(* 1988 by M. A. Vers. 1.02 von 17.5.88 -> Konfigu 
ration *) 


£$M 1500,0,0 3 
USES Dos.Crt; 


VAR Datei, Editor_Pfad, Anhang, List_Pfad, 
Gem_Pfad, Pfad, Para : string; 

Wahl : char; 

Konfig : text; 


PROCEDURE Linie (Zeile : integer); 

VAR i : integer; 

BEGIN 

gotoxy ( 1,Zeile); 

FOR i: = 1 TO 80 DO write (•-’); 
END; 


FUNCTION Gross (Name : string) : string; 

VAR i : integer; 

BEGIN 

FOR i:=l TO length (Name) DO NameCi]:=upcase (Na 
me Eil) ; 

Gross:=Name; 

END; 


PROCEDURE Menu; 

BEGIN 
c 1 rscr; 
highvideo; 

Linie ( 1); 

Linie (3); 

Linie (22); 

Linie (24); 
louvideo; 
gotoxy (24,2); 
write (’B A S I C 2 
gotoxy (32,7); write 
gotoxy (32,9); write 
gotoxy (32,11); write 
gotoxy (32,13); write 
gotoxy (32,18); write 
gotoxy (32,18); write 
gotoxy (1,23); write 


Shell v.1.02’); 

(’ 1) Editor’); 

(’2) Basic2’); 

(’3) Li sting’); 

(’4) Workfile’); 

('5) DOS-Befehl’); 

(’O) Ende’); 

('Workfile: Gross(Datel) 


gotoxy (62,23); 
textattr:=textattr+blink; 
write ('Bitte Taste drücken’); 
textattr:=textattr-blink; 

END; 


BEGIN 
c 1 rscr; 

assign (Konfig, ’C:\K0NFIG.XBS’); 

reset (Konfig); 

readln (Konfig,Editor_Pfad); 

readln (Konfig,Anhang); 

readln (Konfig,List_Pfad); 

readln ( Konf ig, Gern_Pf ad) ; 

close (Konfig); 


IF paramcount=0 THEN BEGIN 

write (’Arbeitsdatei ■ ’); 
readln (Datei); 

END 

ELSE Datei:=paramstr( 1) ; 

Wah1:=’x'; 

REPEAT 

Menu; 

REPEAT 

Wah I ■- =ReadKey; 

UNTIL Wahl IN C’O’..’5’3; 

CASE ord(Wah1) OF 

49 : BEGIN 

Pfad:=Editcr_Pfad ; 

Para:=Datei+Anhang; 
exec(Pfad,Para); 

END; 

50 : BEGIN 

Pfad: = ’c:\command.com’ ; 

Para: = ’/c ’+Gem_Pfad+’ basic2 •-‘-Date 
i; 

exec(Pfad,Para); 

END; 

51 : BEGIN 

Pfad:=List_Pfad; 
exec(Pfad,Datei); 

END; 

53 : BEGIN 

gotoxy (20,20); write(’DOS-Befehl: ’ 

) ; 

readln(Para); Para:=’/C ’+Para; 

Pf ad: = *c:\c ommand.com’ ; 
c Irscr; 

exec(Pfad,Para); 
writeln ('[Taste]’); 

REPEAT UNTIL keypressed; 

END; 

52 : BEGIN 

gotoxy (20,20); writet’Neue Datei: ’ 

) ; 

readln(Datei); 

END; 

END; 

UNTIL wah1 = ’0’ ; 

END. 


PROGRAM XK0NFIG2; 

(* Konfigurationsprogramm für XBASIC2-Shel1 *) 
(* 1988 by M. A. Vers. 1.01 vom 17.5.88 *) 


USES Dos.Crt; 


VAR Editor_Pfad, List_Pfad, 

Gem_Pfad, Anhang : string; 
Datei : text; 


PROCEDURE Linie (Zeile : integer); 

VAR i : integer; 

BEGIN 

gotoxy(1,Zei1e); 

FOR i:=1 TO 80 DO write (’-’); 
END; 
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FUNCTION Gross (Name : string) : string; 

VAK i : integer; 

BEGIN 

FOR i= =1 TO length(Name) DO NameCi3:=upcase(Name 
C i 3 ); 

Gross:=Name; 

END; 


PROGRAM XLIST; 

<* List-Utility für Basic 2 - Shell *) 
(* 1988 by M.A. Vers. 1.01 / 17.5. *) 

USES Dos,Crt,Printer; 


PKOCEDURE Statline (Nachricht : string); 
BEGIN 

gotoxy(1,23); clreol; 
urite (Nachricht); 

END; 


VAR Datei, Zeilel, Zeile2, 
Label 1, Label2 : 

Von, Bis, ZNum, Count : 
Wahl, Dummy : 

Workflle, Aus : 

Druck, Nummer : 


string; 
integer; 
char; 
text; 
boolean; 


BEGIN 
clrscr; 
highvideo; 

Linie (1) ; 

Lime (3) ; 

Linie (22); 

Linie (24); 
louvideo; 
gotoxy(22,2); 

urite ('BASIC 2 - Shell - Konfiguration v.1.01* 

); 

Stat 1 ine (’z. B. C:\TOOLS\NE.COM (8. eventuelle Par 
ameter vor dem Filenamen)'); 

gotoxy( 10,9); urite('Editornarae (mit Pfad): ’); 
readln (Editor_Pfad); 

Statline(’z.B. /DB für Norton Editor auf PC151 
2-CGA’); 

gotoxy(10,11); write(’Editorzusätze nach Filenam 
e : ’ ) ; 

readln(Anhang); 

Stat1 ine('z.B. C:\XBASIC2\XLIST.EXE* ); 

gotoxy(10,13); urite(’Listprogramm (mit Pfad): * 

); 

readln(List_Pfad); 

Stat1 ine('z.B. C:\BATCH\GEH.BAT’ >; 

gotoxy(10,15); urite(’Startdatei für GEH: *); 

readln (Gem_Pfad); 

Statline (‘Schreibe Datei C:\KONFIG.XBS —> Tast 
e drücken ’); 

REPEAT UNTIL keypressed; 
assign (Datei. 'C:\KONFIG. XBS'); 
reurite (Datei); 

uriteln (Datei, GrosstEditor Pfad)+’ *); 
uriteln (Datei, * ’+Gross(AnEang)); 
uriteln (Datei, Gross(List_Pfad)+* *); 
uriteln (Datei, Gross(Gem_Pfad)+’ •); 
close (Date i) ; 

END. 


PROCEDURE Linie (Zeile : integer); 

VAR i : integer; 

BEGIN 

gotoxy ( 1,Zeile); 

FOR i:=1 TO 80 DO urite (’-’); 
END; 


FUNCTION Gross (Name : string) : string; 

VAR i : integer; 

BEGIN 

FOR i:=1 TO length (Name) DO NameCi3:=upcase (Na 
meti3 ); 

Gross:=Name; 

END; 


PROCEDURE Menu; 
BEGIN 


clrscr 





highvideo; 




Linie 

( 1); 




Linie 

(3); 




Linie 

(22); 




Linie 

(24); 




louvideo; 




gotoxy 

(24,2); 




urite 

('BASIC 2 

- Shell Lister v.1.01’); 

gotoxy 

(32,5); 

urite 

(’l) 

komplett’); 

gotoxy 

(32,7); 

urite 

( * 2) 

ab Zeile...’); 

gotoxy 

(32,9); 

urite 

( ’3) 

ab Labe 1. . . '); 

gotoxy 

(32,11); 

urite 

( *4) 

von/bis Zeile...’); 

gotoxy 

(32,13); 

urite 

( ’5) 

von/bis Label...’); 

gotoxy 

(32,15); 

urite 

(’S) 

Drucker an/aus’); 

gotoxy 

(32, 17) ; 

urite 

( *7) 

Nummern an/aus’); 

gotoxy 

(32,19); 

urite 

( ’O) 

Ende*); 

gotoxy 

( 1,23); 

urite 

(’Workfile: ’,GrossfDatei) 

gotoxy 

(1,2); 




IF not 

Druck THEN urite <’ 

Drucker aus 1’) ELSE u 


rite ('Drucker ein |’); 
gotoxy (68,2); 
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Für unsere ständige Joyce-Rubrik 
suchen wir noch 

Programme 
Tips + Tricks 

zur Veröffentlichung. 

Honorar nach Vereinbarung. 

Einsenden an: 

DMV Daten & Medien Verlagsges. mbH, 
Fuldaer Str. 6, 3440 Eschwege 



Hochstraße 11 
8500 Nürnberg 80 
Tel.: 09 11 / 28 90 28 


SCHNEIOFR AI 2640 MM 
EURO PC mit MM12 
EURO PC mit CMW 

PC XTOTZUBEHÖH: 

V-30 Prozessor 6 MHz 
Mathe Cd Prozessor 8067 8 MHz 
GENIUS Moose GM6 
PC RAM Eiweiletung 640K 
Zweülautwefk PC 

Original SCHNEIDER Zwültautwerk 
Laufwerk 3,5' 720K 
Anschiuälertifl für SCHNEIOER PCs 
Laufwerk 325‘ 360WI.2MB 
AtlSCNuBlertig für SCHNEIDER «'s 
FilBcard 20MB 1512/1640/2640 
TEXTMAKER 
STAR DOS MANAGER 
PSION CHESS 
GBase 

IST WCRO PLUS 


Autoriilsrt» 

5996,— 

1298- 

1798,- 


SCHNEIDER+AMSTiMDifeftraBtMiiMm 

DRUCKER: 


m.- 

99,- 

sa- 

199,- 

299,- 



SCHNf DER LJ 3500 (24 Nadeln) 
SKRlC 10 1 COIOR 
STAR NB 2410 

CPC-ZUBEHAR: 

VORTEX Laulwerk Fl X 
Laufwerk 0011 
D lucker DMP 2160 
Zweiflauhx FD-1 mil Kabel 
EflXModul 

CPC/JOVCE-ZUBEHOR: 

MousePack 

MAXEU 3‘ Disketten 10 Si 
NEVAOAFoilran (deutsch) 
NEVADA-Cobol (deutsch) 
JOYCE-ZUBEHÖR: 

JOlCE PCW 0256 
SchnittSelle CPS B256 
RAMErweilerung 512K 
Zweitlaifweik FO-2 (1MB) 


848- 

698- 

1196- 


498, 

448,- 

498- 

398 

399- 


178- 

59,- 

108- 

109,- 


898- 

148- 

3.A 

396,- 


Wlr führen zu den Original-SCHNEIDER-Produkton ArtLksl verschiedener Finnen wie VOHTEX, STAR-DIVISION, 
DATA BECKER, PROFISOFT. ARIOLA, RUSHWARE, MARKT & TECHNIK, SVBEX, GFA, GERDES, STAR, 
SCHNEIDER-DATA, ABD, SOFTMAKER USW.I 
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IF not Nummer THEN write ('| Nummern aus’) ELSE 
urite (’j Nummern ein’); 
gotoxy (62,23); 
textattr:=textattr+blink; 
write (‘Bitte Taste drücken’); 
textattr:=textattr-blink; 

END; 


51 : BEGIN 

clrscr; ZNum'-=0; Count :=0; 
write ('Liste ab Label: ’); 
readln (Zeile2); 

Zeile2:=GrosstZeile2); 

Oeffne; 

REPEAT 

readln (Workfile,Zei1e 1); inc(ZNum) 


PEOCEDUEE Oeffne; 

BEGIN 

assign (Workfile, Datei); 

IF not Druck THEN assigncrt(Aus) ELSE assign (Au 
s,’PRN’); 

reurite (Aus); 
reset (Workfi1e ) ; 

END; 


PSOCEDURE Schreibe; 

BEGIN 

readln (Workfile, Zeilel); 

IF Nummer THEN urite (Aus,ZNum:5,*: ’); 
viriteln (Aus, Ze i le 1) ; 

IF not Druck THEN delay(200); 
inc(ZNum); inc(Count); 

IF (not Druck) and (Count=24) THEN 
BEGIN 

REPEAT UNTIL keypressed; 

Dummy:=readkey; 

Count •• =0; 

END; 

END; 


PROCEDUSE Sch Hesse; 

BEGIN 

close (Workfile); close (Aus); 
writeln ('Bitte Taste drücken...’); 
REPEAT UNTIL keypressed; 

Dummy:=readkey; 

END; 


BEGIN 
c 1 rscr; 

Druck:=false; Nummer:=False; 

IF paramcount=0 THEN BEGIN 

urite (’Arbeitsdatei: ’); 
readln (Datei); 

END 

ELSE Datei:=paramstr(1); 

Wah1: = ’x ’ ; 

REPEAT 
Menu; 

REPEAT 

Wahl : =ReadKey; 

UNTIL Wahl IN C’O’..’7’3; 

CASE ord(Wah1) OF 

49 : BEGIN 

Oeffne; 

clrscr; Znu«:=l; Count:=0; 

WHILE not eof(Workfile) DO Schreibe; 
Schliesse; * 

END; 

50 : BEGIN 

clrscr; ZNura:=l; Count:=l; 
urite ('Liste ab Zeile: ’); 
readln (Count); 

Oeffne; 

REPEAT 


m) ; 
)); 

be ; 


readln (Workfile,Zeilel)5 inc (ZNu 
UNTIL (ZNun=Count) or (eof(Workfi le 
Count:=0; 

WHILE not (eof(Workfile)) DO Schrei 

Sch 1iesse; 

END; 


) and 
or 


’ : ’ ) ; 


e i be ; 


52 


m) ; 


UNTIL (post’LABEL’,Gross(Zeile1))<>0 

(pos(Zeile2,Gross!Zeilel))<>0) 

eof(Work fi1e); 

IF notteof(Workfile)) THEN 
BEGIN 

IF Nummer THEN write (Aus,ZNura:5, 

«riteln (Aus,Zeile1); 

IF not Druck THEN delay(200); 
inc(ZNum); inc(Count); 

WHILE not (eof!Workfile)) DO Sehr 

END; 

Sch 1 iesse ; 

END; 

BEGIN 

clrscr; ZNum:=1; Count:=0; 
write ('Liste von Zeile: ’); 
readln (Von); 

write ('Liste bis Zeile: ’); 
read ln (Bis); 

Oeffne; 

REPEAT 

readln (Workfile,Zeile 1); inc (ZNu 
UNTIL (ZNum=Von) or (eof(Workfi1e)) 


53 


5 

) and 
or 


’ : ’ ) ; 


<>0) and 
> 0 ) ; 


REPEAT Schreibe 

UNTIL eof(Workfile) or (ZNum>Bis); 
Schliesse; 

END; 

BEGIN 

clrscr; ZNum:=0; Count:=0; 
write ('Liste von Label: '); 
read 1n (Labe 11 ); 
write ('Liste bis Label: ’); 
readln (Label2); 

Label 1:=Gross(Labe 11) ; 

Labe 12:=Gross(Labe 12); 

Oeffne; 

REPEAT 

readln (Workfile,Zei1e1); inc(ZNum) 

UNTIL (pos('LABEL'.Gross(Zeilei))<>0 

(pos(Labell,Gross(Zeilei))< > 0) 

eof(Workfile); 

IF notteof(Workfile)) THEN 
BEGIN 

IF Nummer THEN urite (Aus,ZNum:5, 

writeln (Aus,Zeile1)i 

IF not Druck THEN delay(200); 

inc(ZNum); inc(Count); 

REPEAT 

Schreibe; 

UNTIL eof(Workfile) or 

(post'LABEL',Gross(Zeilei)) 

(post Labe 12,GrösstZeilel))< 


END; 

Sch 1iesse; 

END; 

54 : Druck:=not (Druck); 

55 : Nummer:=not (Nummer); 
END; 

UNTIL uahl='0'; 

END. 
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Geht nicht? Geht doch! 

GEM von einer einzigen Diskette gestartet... 

Der Start der Benutzeroberfläche GEM war bislang auf den PCs 1512 und 
1640 ohne Festplatte ein mühsames Geschäft. Mit der vorliegenden Batch- 
Datei und den Anleitungen im Text ist die Erstellung einer GEM-Startdis- 
kette ein Kinderspiel... 


Vorab noch ein Hinweis: die Installa¬ 
tion ist für PCs mit zwei Laufwerken 
geschrieben worden. Sollten Sie Besit¬ 
zer eines SD-PC sein, so ist die Instal¬ 
lation ein wenig aufwendiger, da Sie 
zusätzlich noch den Anweisungen des 
Betriebssystems 

< Bitte eine Diskette in Laufwerk X ein- 
legen, dann Taste drücken > 
folgen müssen. 

Das Listing tippen Sie am besten mit 
RPED.EXE (auf der grünen System¬ 
diskette, Nr. 3) ab und speichern es un¬ 
ter dem Namen GEMDESK.BAT. 

Und hier die Installationsanleitung: 

1. Laden Sie das Betriebssystem DOS 
PLUS (gelbe Systemdiskette, Nr.4). 

2. Legen Sie die grüne Diskette, Nr. 3 
(GEM DESKTOP) in Laufwerk A: 
ein. 

3. Geben Sie 

CD GEMSYS < RETURN > 
ein. 

4. Danach legen Sie die blaue Diskette, 
Nr. 2 (GEM START-UP) in Lauf¬ 
werk B:. 

5. Geben Sie 

FORMATB:/V/S <RETURN> 
ein. 

6. Das Programm verlangt eine Sy¬ 
stemdiskette in Laufwerk B:, die 
wir ja bereits eingelegt haben. 
Drücken Sie irgendeine Taste. Nach 
kurzem Laden erscheint die Mel¬ 
dung: “Neue Diskette einlegen in 
Laufwerk B:“. Folgen Sie dieser 
Anweisung und legen Sie die zu for¬ 
matierende Diskette in Laufwerk B: 
und drücken Sie irgendeine Taste. 
Die Formatierung beginnt. Anmer¬ 
kung: Der Parameter /V erlaubt die 
Namensgebung für eine Diskette, 
wobei Sie auch RETURN drücken 
können, um die Diskette unbenannt 
zu lassen; der Parameter /S sorgt da¬ 
für, daß die Systemdateien kopiert 
werden. Folgen Sie allen weiteren 
Anweisungen auf dem Bildschirm. 

7. Nach dem Formatieren müssen Sie 
die Diskette, auf der Sie GEM¬ 
DESK.BAT gespeichert haben, in 
Laufwerk A einlegen und diese 
Batch-Datei auf die neu formatierte 
Diskette kopieren: COPY GEM¬ 
DESK.BAT B: < RETURN > 


8. Nun geben Sie zum Laufwerks¬ 
wechsel 

B: < RETURN > 
ein. 

9. Geben Sie nun 
GEMDESK < RETURN > 

ein, und die Startdiskette wird er¬ 
stellt. 


10.Nach der Meldung, daß die GEM 
Desktop Startdiskette erstellt ist, 
sollten Sie abschließend noch die 
Batchdatei GEMDESK.BAT mit 
DEL GEMDESK.BAT <RETURN> 
löschen. 

Achtung: 

Die Stapel(Batch-)datei fangt keine 
Fehler ab und überprüft auch nicht, ob 
die benötigten Dateien auf der Diskette 
vorhanden sind. Beachten Sie deshalb 
genau die Bildschirmanweisungen und 
legen Sie die richtigen Disketten ein, 
da ansonsten die Stapeldatei einfach 
weitermacht, ohne alle Dateien zu ko¬ 
pieren und die dann erstellte Startdis¬ 
kette unbrauchbar ist. 

(Hans-Joachim Kiefer/me) 


ECHO OFF 
CD \ 

CLS 
ECHO 
ECHO 
ECHO 
PAUSE 

ECHO UNTERVERZEICHNISSE WERDEN ERSTELLT 

ECHO-—-— 

MD B:\AUTO 
MD B:\GEMBOOT 
MD B:\GEHSYS 
MD B:\GEMDESK 
A: 

ECHO LEGEN SIE DISKETTE 2 (GEM START-UP) IN LAUFWERK A: EIN ! 

PAUSE 
CD \ 

ECHO AUTOEXEC.BAT UND GEMSTART.BAT WERDEN KOPIERT 
COPY AUTOEXEC.BAT B: 

COPY GEMSTART.BAT B: 

ECHO GEM.EXE ,GEM.RSC .SNAPSHOT .SNAPSHOT.RSC UND CALCLOCK.ACC WERDEN KOPIERT 
CD B:\GEMBOOT 
CD GEMBOOT 
COPY *.* B: 

ECHO SNAPSHOT WIRD IN SNAPSHOT.ACC UMBENANNT 
REN B:SNAPSHOT B:SNAPSHOT.ACC 

REM WENN SIE SNAPSHOT NICHT BENÖTIGEN, SO KÖNNEN SIE DIESE DATEIEN AUCH MIT 
REM DEL B:SNAPSHOT.* LÖSCHEN ! 

CD B:\ 

CD \ 

ECHO AMSTRAD.SYS , GEMVDI.EXE UND ASSIGN.SYS WERDEN KOPIERT 
CD GEMSYS 
CD B:\GEMSYS 
COPY AMSTRAD.SYS B: 

COPY GEMVDI.EXE B: 

COPY ASSIGN.SYS B: 

CD B = \ 

CD \ 

CD B:\AUTO 
CD AUTO 

ECHO TWODISKS.INF , DRVCNT.COM UND NVRPATCH.EXE WERDEN KOPIERT 
COPY TWODISKS.INF B: 

COPY DRVCNT.COM ß: 

COPY NVRPATCH.EXE B: 

CD B: \ 

CD \ 

ECHO NEHMEN SIE DISKETTE 2 AUS LAUFWERK A: UND LEGEN SIE DISKETTE 3 
ECHO (GEM DESKTOP) IN LAUFWERK A: 

PAUSE 

CD B:\GEMDESK 
CD GEMDESK 

ECHO DESKTOP.APP , DESKTOP.INF, DESKTOP.RSC UND DESKLO.ICN WERDEN KOPIERT 
COPY *.* B: 

CD \ 

CD B'• \ 

CD B:\GEMSYS 
CD GEMSYS 

ECHO FORHAT.COM WIRD KOPIERT 
COPY FORMAT.COM B: 

CD B:\ 

CD \ 

ECHO--- 

ECHO GEM DESKTOP STARTDISKETTE ERSTELLT 


ECHO- 

ECHO * GEMDESK.BAT (C) 12.MAI 1988 BY HANS-JOACHIM KIEFER * 

ECHO * - 6640 HERZIG 1 * 


ECHO ********************************************************************** 

Bild 1: Das Listing GEMDESK.BAT tippen Sie am besten unter RPED.EXE (grüne Systemdiskette, 
Nr. 3) ab... 


LEGEN SIE DIE ZU ERSTELLENDE DISKETTE IN LAUFWERK B". 
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PC spezial 

Teil 5: Tastengaukeleien 

Im vierten Teil von PC spezial haben wir uns mit der Tastatur beschäftigt. 
Das ist auch das Thema dieser Folge. Dieses Mal wollen wir Tasten austau- 
sehen. 


Wichtiger Hinweis: Das abgedruckte 
Programm benötigt Turbo Pascal 4.0. 
Es ließe sich nur unter großem Auf¬ 
wand auf Turbo 3.0 umschreiben. 
Jeder scheint die “falsche“ Tastatur zu 
besitzen - zumindest nach den Klagen 
vieler PC-Besitzer zu urteilen. Eigen¬ 
tümer eines Amstrad-PC beklagen sich 
darüber, daß die Control-Taste ungün¬ 
stig liegt und an der Position von Caps- 
Lock viel besser aufgehoben wäre. 
Caps-Lock könnte man doch an die 
Stelle von Control legen. 

Und die Besitzer eines AT mit der 
MF2-Tastatur haben ein ähnliches Pro¬ 
blem: Die linke Control-Taste liegt so 
weit unten in der Ecke, daß sich Viel¬ 
schreiber bei Control-Tasten den klei¬ 
nen Finger verbiegen. Dort, wo die 
Control-Taste gut aufgehoben wäre, 
liegt dummerweise Caps-Lock. 

Was kann man nur dagegen tun? Sich 
eine neue Tastatur kaufen? Keinesfalls! 
Ein kleines Turbo Pascal-Programm 
erledigt softwaremäßig die Vertau¬ 
schung der beiden Tasten. 

Als Ausgangspunkt unserer Überle¬ 
gungen dient das Programm zur Anzei¬ 
ge des Num-Lock-Standes aus der letz¬ 
ten Ausgabe von PC-International. Sie 
erinnern sich: Wir haben den Tastatur- 
Interrupt 9 abgefangen und eine Turbo 
Pascal-Routine zwischengeschaltet. 
Diese beobachtet das Statusbyte der 
Tastatur und zeigt auf dem Bildschirm 
“NUM“ an, wenn die Num Lock-Taste 
gedrückt ist. 

Das neue Programm ist ganz ähnlich 
aufgebaut, geht aber noch einen Schritt 
weiter. Es holt sich direkt von der Ta¬ 
statur den anliegenden Scancode und 
wertet ihn aus. Einfach gesagt: es han¬ 
delt sich um die Control-Taste, wird sie 
wie Caps-Lock behandelt. Wurde die 
Caps-Lock-Taste gedrückt, wird sie als 
Control angesehen. 

Programmtechnisch ist das nicht 
schwer zu verwirklichen. Um zu ermit¬ 
teln, welche Taste gedrückt wurde, bil¬ 
den wir einfach die Arbeitsweise des 
ROM-BIOS nach: Das Programm fragt 
den Port $60 ab, der beim PC für die 
Tastatur reserviert ist. Dort holt es sich 
den Scancode der Taste ab. Und hier 
gibt es eine Besonderheit: Die Scan¬ 


codes der Tastatur liegen zwischen 0 
und 127. Maximal kann eine Tastatur 
also 128 Tasten besitzen. Das geht gut 
auf; denn sogar die MF2-Tastatur der 
ATs und PS/2-Modelle besitzt nur 
101/102 Tasten. 

Sobald eine Taste gedrückt wird, liegt 
der Scancode zwischen 0 und 127 an. 
Damit der PC aber feststellen kann, 
wann eine Taste wieder losgelassen 
wird, meldet die Tastatur beim Loslas¬ 
sen der Taste denselben Scancode plus 
128. Der erste Code beim Drücken der 
Taste wird “Make-Code“ genannt, der 
zweite beim Loslassen der Taste 
“Break-Code“. 

Warum nun diese Unterscheidung zwi¬ 
schen Drücken und Loslassen? Bei nor¬ 
malen Tasten ist dies eigentlich nicht 
wichtig. Von Bedeutung ist dies bei 
den Umschalttasten wie Shift, Control 
und Alt. Drücken Sie Control-A, be¬ 
kommt der Computer folgende Codes: 

— Control gedrückt: Make 

— “A“ gedrückt: Make 

— Control losgelassen: Break 

— “A“ losgelassen: Break 

Die Control-Taste hat den Scancode 
29, die Taste Caps-Lock 58. Die zuge¬ 
hörigen Break-Codes lauten 157 und 
186. 

Hat unser Programm den Scancode der 
aktuellen Taste ermittelt, prüft es, ob 
es sich etwa um Control oder um Caps- 
Lock handelt. In beiden Fällen wird ein 
Bit im BlOS-Statusbyte für die Tastatur 
verändert. Dieses Statusbyte kennen 
Sie bereits. Es vermerkt, ob Caps- 
Lock, Num-Lock, Shift usw. gedrückt 
wurden und im Augenblick aktiv sind. 
Die Speicherstelle hat die Adresse 
$0040:$0017 und ist bitweise aufge¬ 
baut: 


7 6 5 4 3 2 1 0 

INS CAP NUM SCR ALT CTL I.SH RSH 

Abkürzungen: 

INS — die Insert-Taste 
CAP — Caps-Lock 
NUM — NumLock 
SCR — Scroll-Lock 
ALT — die ALT-Taste 


CTL — die Ctrl-Taste 
LSH — die linke Shifl-Taste 
RSH — die rechte Shift-Taste 

Indem einfach das jeweils entgegenge¬ 
setzte Bit verändert wird, vertauscht 
man die Wirkung der beiden Tasten. 
Allerdings funktionieren Caps-Lock 
und Control unterschiedlich: Wird 
Caps-Lock gedrückt, schaltet der 
Computer auf Großschreibung um. 
Beim nächsten Betätigen der Caps- 
Lock-Taste geht es wieder zurück zur 
Kleinschreibung. Dagegen arbeitet die 
Control-Taste so, daß der “Control- 
Zustand“ nur so lange aktiv ist, wie der 
Benutzer die Taste niederdrückt. 
Diesem Sachverhalt trägt das Pro¬ 
gramm Rechnung: Erkennt es die Con¬ 
trol-Taste, wird das Caps-Lock-Bit auf 
den entgegengesetzten Wert gesetzt. 
Somit wirkt die Control-Taste als Ein- 
und Ausschalter für Caps-Lock. 

Bei der ehemaligen Caps-Lock-Taste, 
die nun als Control fungiert, geschieht 
etwas anderes: Entdeckt das Programm 
den Break-Code von Caps-Lock, setzt 
es das Control-Bit im BTOS-Tastalur- 
byte. Findet es den Break-Code, weil 
der Benutzer die Taste wieder losgelas¬ 
sen hat, setzt es das Control-Bit wieder 
zurück. 

So weit, so gut. Alles klappt wunder¬ 
bar; nur einen Schönheitsfehler hat die 
Sache: Der Computer hat die ursprüng¬ 
liche Funktion der beiden Tasten noch 
nicht restlos vergessen. So wirkt Caps- 
Lock jetzt als Control, gleichzeitig 
aber immer noch als Umschalter zwi¬ 
schen Klein- und Großschreibung. Das 
ist nicht der Sinn der Sache: Einmal das 
neue Control gedrückt, und ab sofort 
erscheint alles in Großschreibung. 

Die erste Idee, wie sich das lösen ließe, 
ist nicht verwirklichbar: Man müßte 
dem BIOS vorgaukeln, der Benutzer 
habe eine ganz andere Taste gedrückt, 
möglichst eine, die keine Wirkung hat. 
Da aber das BIOS einfach den Port $60 
abfragt - wie unser Programm auch - 
funktioniert das nicht. Und auch ein¬ 
fach aus dem Interrupt zurückzukeh¬ 
ren, ohne den alten Interrupt 9 zu be¬ 
dienen, ist nicht so einfach. Denn dazu 
muß der Interrupt-Controller umpro¬ 
grammiert werden. 

Wozu aber dieser ganze Aufwand? 
Denken wir doch einfach daran, daß 
wir den alten Interrupt 9 über den um¬ 
definierten Interrupt $67 aufrufen. So¬ 
bald der Interrupt aus dem BIOS zu¬ 
rückkehrt, wird kurz noch einmal die 
Pascal-Prozedur aktiv. Und das ist un¬ 
sere Chance: Bisher haben wir einfach 
die Prozedur verlassen, ohne noch et- 
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was zu unternehmen. Jetzt aber können 
wir die Aktionen des BIOS neutrali¬ 
sieren! 

Das geht so: Bevor wir den alten Inter¬ 
rupt 9 aufrufen, sichern wir den Inhalt 
des BIOS-Tastaturbytes in einer Varia¬ 
blen. Dann lassen wir das BIOS seine 
Arbeit verrichten. Es kehrt in die Pas¬ 
cal-Prozedur zurück. Dort prüft das 
Programm, ob die gedrückte Taste 
Control oder Caps-Lock war. War es 
eine dieser beiden Tasten, stellt das 


Programm einfach im BIOS-Tastatur- 
byte wieder den alten Zustand her - so 
als wäre nichts gewesen. Erst dann 
geht es aus dem Interrupt zurück in das 
im Vordergrund laufende Programm. 
Falls Sie so Ihre Zweifel haben, wie 
kompatibel dieses Programm mit ande¬ 
rer Software ist, seien Sie beruhigt: 
MS-DOS merkt nichts von den Spiel¬ 
chen, Turbo Pascal 4.0 zeigt brav beim 
Drücken von Control am Bildschirm 
rechts unten “CAPS“ an. Und die Krö¬ 


nung: Sogar Control-Alt-Del, der 
Warmstart, muß jetzt als Caps Lock- 
Alt-Del eingegeben werden! 

Nachdem dies alles so schön klappt, 
stellt sich nur noch eine Frage: Woher 
bekommt man Tastaturkappen in der 
passenden Größe, damit man die bei¬ 
den Tasten auch physikalisch vertau¬ 
schen kann? 

(Martin Kotulla/me) 


[$M 4096,0,0} 


SaveBios:=mem[$0:$4173; 
with reg do begin 

program Key2; 


flags:=xflags; 
ax =xax; 

t Vertauscht Control und Caps-Lock } 


bx ■ =xbx! 
cx:=xcx; 

uses Dos,Crt; 


dx:=xdx; 

Sl:=XSi; 

var vector:pointer i 


di :=xdi; 

st:string; 


ds:=xds; 
es:=xes; 

t$F+} 


bp:=xbp; 

procedure Int9(xFlags,xCS,xIP,xAx, 


intr($67,reg): 

xBX,xCX,xDX,xSI, xDI, 
xDS,xES,xBP:uord)i 


end; 

interrupt; 


if b in 158,293 then memC$0:$4173: =SaveBios; 

t$F-3 


end; 

var reg:registers; 



b:byte; 


begin 

SaveBios:byte; 


st:=paramstr( 1) ; 
case stC13 of 



’+': begin 

begln 


GetlntVec($09,vector); 

SetIntVec($67,vector); 

b:=portC$603; 


Set IntVec($09,@Int9); i 

uritelnf’KEY installiert’); 

if b=58 then mem[$0:$4173:=«eB[$0:$4173 or 4; 


keep(O); 
end; 
s begin 

if b=186 then mernC$0:$4173:=memC$0:$4173 and not 


4; 


GetIntVec($67,vector); 

SetIntVec($09,vector); 

if b=29 then begin 


uriteln(*KEY de-instal1lert’); 

if (mem[$0:$4173 and 64)=0 


halt; 

then nemt$0:$4173:=nem[$0:$4 17 


end; 

3 or 64 


eise »riteln (’Aufruf •• KEY + oder KEY 

eise mem [$0 $4 173 : =mem [$0: $417 


end; 

3 and not 64; 


end. 

end; 







Softwareautoren für die Amstrad Computer gesucht. 

Haben Sie nicht auch schon einmal daran gedacht, ein gutes Programm, das Sie selbst geschrieben haben, zu veröffentlichen ? 

Warum sollten nicht auch andere Leser in den Genuß Ihrer Mini-Dateiverwaltung, Grafikerweiterung, Tips. Tricks, Tools, Utilities, Simulationen, Games usw. kommen? 

Wirklich gute Software, die den Anforderungen unserer Leser genügt, wird von uns entsprechend honoriert. 

Sie sollten jedoch bei der Einsendung Ihres Programms ein paar Punkte beachten. 


Wenn Sie Nachstehendes befolgen, wird Ihre Post zügig und ohne große Rückfragen und Verzögerungen bearbeitet: 

Senden Sie uns Ihr Programm mit 



{a) allen benötigten Files auf der mit dem Programmnamen bezeichneten Diskette. 


(b) den kompletten Ausdrucken/listings aller Files der Diskette. 

{c) einer Beschreibung Ihres Programms und 
{d) einer genauen Bedienungsanleitung. 



Die Bedienungsanleitung und die Beschreibung sollten als Textdatei mit auf der Programm-Diskette enthalten sein. Wichtig für uns zu wissen wäre noch, mit welcher 
Konfiguration Sie arbeiten, welchen Drucker Sie benutzen, ob Sie ein zweites Laufwerk angeschlossen haben usw... 

Wenn Sie der Meinung sind, ein solches Programm geschrieben zu haben, dann nichts wie einschicken an den 

DMV Verlag ■ Red. PC International ■ Abtlg. CPC/Joyce/PC • Fuldaer Str. 6 • 3440 Eschwege 

Geben Sie bitte in der Adresse die für Ihren Amstrad Computer (CPC, Joyce, PC) zuständige Abteilung mit an, damit Ihr Programm direkt in die richtigen Hände gelangt. 
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Bücher 



Jonathan Kamin 
MS-DOS Profibuch 
mit Harddisk- 
Management 
SYBEX-Verlag 
Düsseldorf 1988 
ISBN 3-88745-691-2 
Preis: 59, - DM 

Das ca. 500 Seiten umfassende 
Buch von Jonathan Kamin wen¬ 
det sich an alle MS-DOS Benut¬ 
zer. Auf die neueste DOS-Ver¬ 
sion 3.3 wird, soweit sie sich 
von den älteren Versionen un¬ 
terscheidet, im Text speziell 
eingegangen. In insgesamt IS 
ausführlichen Kapiteln erfährt 
der Leser Wissenswertes von 
der Entstehungsgeschichte des 
Betriebssystems, über DOS- 
Werkzeuge, Stapelverarbeitung 
bis hin zur Verwaltung von 
Festplatten und speicherresi¬ 
denten Programmen. Damit Sie 
sich ein umfassendes Bild ma¬ 
chen können, nachfolgend eine 
kurze Auflistung der einzelnen 
Kapitel in Stich Worten: 

1. Historie des MS-DOS-Be- 
triebssystems, 

2. Besonderheiten der PCs, 

3. Platten, Dateien und Verzeich¬ 
nisse, 

4. MS-DOS Hilfsprogramme, 

5. Aufbau und Programmierung 
von Batch-Dateien, 

6. Batch-Datei Beispiele für Fort¬ 
geschrittene, 

7. Umleitungen und Filter unter 
DOS 

8. Konfigurierung des Systems, 

9. Bildschirm- und Tastaturan¬ 
passung, 

10. Beispiele für verbesserte 
DOS-Kommandos, 

11. Verbesserte Dateiverwal¬ 
tung, 

12. Verzeichnisverwaltung in 
Theorie und Praxis, 

13. Retten von Dateien mit ge¬ 
eigneter Software, 

14. Aufbau und Arbeit mit Fest¬ 
platten, 


15. Technik der Speichererweite¬ 
rungen, 

16. RAM-Disks und ihre Verwal¬ 
tung, 

17. Speicherresidente Software, 

18. Drucker, Treiber und Spooler 
Ergänzt wird der Text der einzel¬ 
nen Kapitel durch sehr viele Ab¬ 
bildungen und Programmbeispie¬ 
le. Spezielle am Markt befindli¬ 
che Softwarepakete (Textverar¬ 
beitungen, Datenbanken, Werk¬ 
zeuge für Disketten- und Festplat- 
ten-Verwaltung) werden kurz be¬ 
schrieben. Das Buch ist kein Er¬ 
satz für ein DOS-Handbuch, es 
geht wesentlich weiter und zeigt 
viele praxisbezogene Kniffe und 
Tricks. Besonders ausführlich be¬ 
schäftigt sich der Autor mit der 
Verbesserung einzelner DOS- 
Kommandos und zeigt, mit wel¬ 
chen Mitteln die Pfadstrukturen 
transparenter gestaltet werden 
können. Ein ausführliches Stich¬ 
wort-Verzeichnis erleichtert die 
Verwendung des MS-DOS-Profi- 
buchs als Nachschlagewerk so¬ 
wohl für Anfänger, als auch für 
Fortgeschrittene. Wer mehr als 
nur Grundlagenwissen erlangen 
möchte, ist mit diesem Buch gut 
beraten. 

(Hans-Werner Fromme/jb) 


Bö hmer ____ 

Basic2 für den 
Schneider-PC 



Martin Böhmer 
BASIC2 zum 
Schneider-PC 

Franzis’ Verlag 
München 1988 
ISBN 3-7723-8981-3 
Preis: DM 38,- 

Auch dieses Buch gehört zu den 
Ausnahmen, die sich aus¬ 
schließlich mit dem zum AM- 
STRAD/Schneider PC geliefer¬ 
ten BASIC2 beschäftigen. Hier 
wird jedoch das System von 
Grund auf erklärt; angefangen 
wird mit der Installation unter 
GEM und der Erstellung eige¬ 
ner Arbeitsdisketten. Das Buch 
gliedert sich in insgesamt 23 
Kapitel auf 166 Seiten, die sich 


vom Anfangspunkt, an dem 
man als Einsteiger steht, bis hin 
zur Programmierung komple¬ 
xer Probleme beschäftigen. 
Eine Erklärung zu den Funktio¬ 
nen der einzelnen BASIC-Fen- 
ster (Dialog, Editor und Ergeb¬ 
nis) ist ebenso enthalten, wie die 
Übersetzung der Grundrech¬ 
nungsarten ins BASIC, wobei 
man auch gleich etwas über die 
interne Verwaltung von Varia¬ 
blen und Strings erfährt. 

Auch Programmbeispiele kön¬ 
nen dem Buch entnommen wer¬ 
den, so ein statistisches Analy¬ 
seprogramm, ein Schreibma- 
schinen-Programm, ein Busi- 
ness-Grafik-Programm, eine 
Adreßdatei und ein Karteika¬ 
sten. Alle Möglichkeiten des 
BASIC2 werden durch Beispie¬ 
le belegt, so daß man jederzeit 
anhand dieser Beispiele seine ei¬ 
genen Fortschritte kontrollieren 
kann. 

Eine ASCII-Tabelle, reservierte 
Befehlsworte und eine alphabe¬ 
tische Befehlsübersicht machen 
die Lektüre des Buches kom¬ 
plett. 

Das Buch ist auf jeden Fall den¬ 
jenigen zu empfehlen, die sich 
einen AMSTRAD-PC zugelegt 
haben, und nun erste Schritte 
Richtung BASIC-Programmie- 
rung unternehmen, aber auch 
denjenigen, die sich weiter Lite¬ 
ratur zulegen wollen. 

(Marius Böttger/jb) 

I 



Günter Born 
Die BASIC2 
Toolbox 
247 Seiten 
DMV Verlag 
Eschwege 1988 
Preis: 49, - DM 
ISBN 3-926177-01-2 

Für den von Locomotive Soft¬ 
ware Ltd entwickelten und 
mit den Schneidcr/Amstrad PC 
vertriebenen BASIC-Dialekt 


BASIC2 gibt es neben dem ei¬ 
gentlichen Handbuch kaum 
weiterführende Literatur. Gün¬ 
ter Born hat sich mit seiner Ver¬ 
öffentlichung dem Thema Ent¬ 
wicklung von Hilfsprogrammen 
für und unter BASIC2 ange¬ 
nommen. Nach einer kurzen 
Einführung in strukturiertes 
Programmieren wird der Leser 
in den einzelnen Kapiteln mit 
den Unzulänglichkeiten von 
BASIC2 konfrontiert. Zur 
Überbrückung der Schwach¬ 
stellen stellt der Autor Hilfspro¬ 
gramme vor, erläutert ihren 
Aufbau und gibt Anregungen 
für Erweiterungen und Verbes¬ 
serungen der einzelnen Tools. 
Beginnend mit einer formatier¬ 
ten Druckerausgabe für 
BASIC2-Listings erhält der Le¬ 
ser nicht nur nach und nach eine 
Sammlung interessanter und 
hilfreicher Programme, son¬ 
dern er erlangt auch sehr viel 
Wissen über die Besonderheiten 
des Basic2 Dialektes. In drei 
großen Abschnitten stellt Gün¬ 
ter Born folgende Programme 
vor: 

- Formatierte Druckerausgabe 
für BASIC2 Programme, 

- Preprozessor zur Kompri¬ 
mierung von BASIC2 Pro¬ 
grammen, 

- Preprozessor für INCLUDE 
Dateien, 

- Querverweislisten-Gene- 
rator 

- Auswertung von Textda¬ 
teien, 

- Filter für Textdateien, 

- Vereinigung von Textdateien 

- Rechner für verschiedene 
Zahlensysteme, 

- Ausgabe beliebiger Dateien 
im HEX-Format, 

- Disassembler für 
8086-Prozessor 

Alle Programme sind ausführ¬ 
lich kommentiert und auch für 
BASIC2-Anfänger leicht ver¬ 
ständlich. Für alle Leser, die 
sich das umständliche Eintippen 
der einzelnen Programme er¬ 
sparen wollen, sind die Quell¬ 
texte auch auf Diskette erhält¬ 
lich. Das vorliegende Buch 
wurde von einem Praktiker für 
Praktiker geschrieben. Es wen¬ 
det sich sowohl an die Einstei¬ 
ger, als auch an fortgeschrittene 
Programmierer von BASIC2. 
Die vorgestellten Programme 
lassen sich leicht in eigene Ent¬ 
wicklungen einbauen, verän¬ 
dern und erweitern. Mit der 
BASIC2 Toolbox erhält der 
Käufer ein interessantes und 
lehrreiches Buch, welches allen 
Anwendern dieses BASIC Dia¬ 
lektes empfohlen werden kann. 
(Hans-Werner Fromme/jb) 
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Kleinanzeigen—i 


Biete an Software 


=rseware ab 2 DM 02 12 3 3 72 82 G 


Zeugnis CPC \::r, vi va ;_ig f 
_ehrer hfe ce: - r e _mschlag 
H Kra^z /. Str 9 

■75C S 


'* NOTENVERWAUUNG ** 

't Ir :'t _ j'd passendes 
” ZEUGNISPROGRAMM ** 

-8* Bad. 1 Würtl.; schreib! 
— _ are; 3“ Disk, für CPC 
: :egen Freiumschlag 
Hseäi Bader, Egerlandstr. 14 
■^80 Aalen 


I eutsche PD ab 2 DM 0212/33 72 82 G 


■Vg Systemwechsel: PROWORT (90 DM), 
MENUMATE - Benutzerschnitt- 
stelle (90 DM), Schreibma¬ 
schinenkurs (30 DM), CPS 8256 
Cent r onics-Schnittstelle (70 DM) 

Martin Hinder 089/8201681 


■CPC & JOYCE PUBLIC DOMAIN InfoB 

• 160 Pf Porto, PC-Katalog auf 4 Disks • 
■7- DM, PDI, Pf 11 18,6464 Linsengericht G 


Verkaufe CPC-Forth (entsp'icht 
Forth83 Standard). NP DM 178,- 
VP 100,-. Nur Ix zu verkaufen. 
info/Bestellung bei Thomas Hahn, 
Limburgslraße 7, 7311 Bissingen 
an der Teck 


Orig. Programme für Joyce: 

Prowort 150,- Joyce Mailing-Sy¬ 
stem 100,- Turbo Pascal + Turbo 
Toolbox 190,- Statistic Star 
45,- ColossusChess 25,— 
Bounder 20,- DM 0 89/17 37 80 


Verkaufe CPC Spiele auf Disc 
je 30 DM 07720/33733 ab 16.30 


3" Maxell-Disketten 10 St. 57 DM 
+ 3 DM Porto nur Vorkasse 
A Wartenberg, Cantorsteig 16 
1000 Berlin 42 


dBase/Wordstar für Joyce/6128 
je DM79, zus. DM 129,02151/304970 


■ Public Domain & Free-Software B 

■ IBM/Schneider PC u. Kompatible. B 

■ Disk, ab DM 1,80 - Gratisinfo. B 

■ M. Karbach - Remscheiderslr. 18 B 

■ 5650 Solingen 1 - Tel. 0212/4 3140 G 


Software (Paint-Box/Elite u.a.) 
CPC Magazin 7/86-11/87 
Tel: 02234/53326 


Desktop Publishing Software f 
Schneider PC u. IBM Kompat. Info 
Karolczak, Dorfstr. 43, 2061 Stubben 
Telefon 04534/8464 ab 18.00 


GBase 120,-, Multigraph 1640 
50,-, Volkswriter m Handb. 40,— 
suche Hausverw.(PC) 0 82 41/68 00 


Anwenderprogr. alle CPC’s für 
Privat + Vertreter Liste DM 0,80 
G Hust, Deichstr. 60,2876 Berne G 


Lohn-Einkommensteuer, Miet-Lasten- 
zuschuß, Rentenber./Beamtenversorgung 
HI-SOFTWARE Niederfelderstr. 44 
8072 Manching 08459/1669 G 


Wörterbuch deutsch ~ englisch 
mit Vokabeltrainer für Basic 
Schneider PC1512; Vokabeln 
können selbst eingegeben werden 
Preis DM 20,- + Versandkosten 
Info gegen Rückporto von 
Maria Daniels, Nr. 25, 5441 Sassen 


Aktienprogramm DM 45,- per Nachnahme 
Rolf Feldmann, Schulstr. 5, 

3422 Bad Lauterberg G 


** Dias ordnen mit Computer ** 

CPC 464/664/6128, JOYCE und PC 
bis zu 100000 Dias; Suchzeit 
1 Sekunde. Info gegen Rückporto 
bei: Dipl.-Ing W Grotkasten, 

Birnenweg 6,7060 Schorndorf 

Tel: 07181/4 28 46 G 


B Astrologie mit Computer B 

B International geschätzte Astro- B 

■ logenprogramme, professionelle B 

■ Deulungsprogramme, LernprogrammeB 

■ für Anfänger, Handschriftenanalyse, ■ 

■ Bio-Rhythmus, Astro-I-Ging B 

B Info gegen 2,- in Marken ■ 

■ Astron, K.W Bonert, B 

■ P.-Marquardt-Str. 4a, 2000 Hamburg 60 

G 


Wirtschaftliche Programme 
für die Arztpraxis auf 

* dem Schneider CPC, Joyce, PC 

* Fa. EFFEKTA, Am Wiggert 9 c 

* 4500 Osnabrück, 05 41 -44 2416 G 


* * * FÜR ALLE LEHRER * * * 
KLASSENDATEI f. IBM-komp. PC’s 
berechnet u verwaltet alle No- 

len schriftl. + mündl, Eingabe v. 

Punkten oder Noten, versch Ab- 
stufg, eigene Notenschlüssel, 
auch gymn Oberstufe, automat. 

Durchschn und Rangplätze. Druck 
aller Listen Komfortable Me¬ 
nülührung auch f Comp.-Laien 
Nur 59 DM Info: Dieter Arnold, 

Dürer-Str. 38 f, 7835 Teningen 1 

* * VOM LEHRER - FÜR LEHRER * * 


DR. NO! 3" D: 10,- DM: HARY, ) 
Gärtnerstr. 14,6602 Dudweiler G 1 


Klassen-Noten-Punkteverwaltung 

praxisnah, alle Klassen/Fächer 
Schnittberechnung/Gewichtung 
Listenoruck und Bildschirmanz. 
Notenspiegel, eint Menueöedien 
CPC, JOYCE, PC, Info 1,30 Porto 
Außerdem für JOYCE/PCW: 
komf. kompl. Vereinsverwaltung 
einschl Lastschrifteinzug usw. 

Claus Bernhold, Rommelstraße 31 
8783 Hammelburg 


* Für Joyce und PC: • STEUERMAT • * 

* Lohn- und Einkommensteuer 87: Aus- ” 

* druck direkt auf Formular, Analyse, " 

* Tabelle, Disk 69,- DM; Aktu 10,- DM * 
' • FORMULARPRINT, Disk 40,- DM» * 
' »FIBUMATE /Ü-Rechnung, Disk65,-# * 
’PC-Demodisk: 10,- DM, Infogg 80 Pfg.’ 

* Porto: F. Farin, FFSW, Elisabethstr. 65, * 

* 4460 Nordhorn G 


• • Superangebote Joyce PCW • • 

• • Soft- & Hardware, z Bsp • • 

• • Mica CAD inkl. Handbuch • • 

• • nur 99,- DM, Infoliste • • 

• • gratis B Firma WIEDMANN • • 

• • Floriansmühlstraße 10. • • 

• • München 45,0 89-3 23 35 95 • G 



Der Entertainer 


Computerspiele sind die 
neue Generation der Un¬ 
terhaltung. 


Nun gibt es JOYSTICK, 
den kompetenten Beglei¬ 
ter für die engagierten 
Spieler von heute! 
JOYSTICK ist das Maga¬ 
zin für Computerunter¬ 
haltung. 


Mit Reviews, Tips und 
Tricks, Storys, News und 
Lösungshilfen finden Sie 
in JOYSTICK alles, um 
die schönen Stunden am 
Computer noch interes¬ 
santer zu gestalten. 



DMV-Verlag 

Postfach 250 • Fuldaer Str. 6 • 3440 Eschwege 










































1 —Kleinanzeigen 


# # FINANZ-PAKET f. JOYCE # # 

1. FiBu: Kontenzahl beliebig, Saldenliste, 
Bilanz, indiv. BWA, Einnahmen/Überschuß, 
USt, rechn. Konten, Kontenbl (35 DM/1000) 

2. Finanzmathematik: Tilggspläne, 
Zinsen, Annuitäten, Raten, Rente (16 Prag.) 

3. Überweisungsdruckprogramm 
2 Disketten Nur 98 DM!!! Ass.jur. 

Kellmann, Wilhelmstr. 71,44 Münster (Porto) 

G 


Public-Domain CPC + Joyce Liste 
80 Pf. Krimkovvski, Försterstr. 31 
5000 Köln 30, PD zu Superpreisen 


LERNSOFT: Lernen m. all. CPCs. 

1) Text nachschreiben 50,— 

2) Lückentext 50,— 

3) Fragen m Auswahlantw. 50,— 

4) Kopfrechnen 40,— 
Programmpaket 150,- Info 3,- 
LERNSOFT, Höhenstraße 101 
7931 Griesingen, Tel. 07391/6866 


■ PD-Software für CPC-Computer ■ 
Liste gegen 80 Pf. bei: Peter 
Breuker, Rektenstraße 10, 

4930 Detmold 1 Es lohnt sich!!!!!! 


CALProgramme Englisch (Unreg. 

Verben, Zeiten) für alle CPCs 
Info bei K.-L. Jürgensmann, Zur 
Steinbreede 70, 4504 GeorgsmarienhütteG 


CPC 6128/JOYCE: DR Draw 110 DM 
dBasell 90 DM Profi Painter 50 DM 
MP2-Anschluß von Fernseher als 
Farbmonitor 85 DM 0 71 64-4392 


GRATISLISTE für alle CPC-Typen 
bei Friedrich Neuper, Postfach 72, 

8473 Plreimd G 


Biete an Hardware 


Joyce PCW8256 VB DM 600 
Göttingen Tel. 0551/53007 


PC 1512, 640 KB, V 30, CM + 21 MB 
Platte + Star NL10 + viel Softw. 
u. Lit. DM 2100 VB 0 22 73-8717 


CPC 6128 + Colormonitor + Disks 
+ Mirage Imager, VHB 1100 DM 
Tel. (06121)501625 ab 18 Uhr 


Multi-Database DM 40,- 07258/8804 
Public-Domain DM 20,- /12 Turbo-Tools 
Verk.: Joyce VB 1.200,- 07258/8804 


CPC 6128, Farbmonitor, 2. „5.25“ 
Disclaufwerk. Multiface two, 
Spitzen Software. 25 Anwen¬ 
dungen wie Starwriter, Datamat 
etc. Über 60 Spiele. VB 1700 DM 
Tel. 069/621127 nach 18 Uhr 


• • Verkaufe CPC 6128 Grün •• 
Umfangreiche Software wie z.B 
StarWriter, dBasell, Multiplan 
+ Spiele. Bücher + PC International 
und Schneider Magazin 
1085-07.88 + TV Modulator. 

VB. 950 - DM ab 18.00 Uhr 
Tel. 02373/2259 


CPC464 CPC664 CPC6128 User! 
Lightpen mit Programm DM 49,— 

Versand gegen Scheck/Nachnahme 

Info gratis! Fa. Schißlbauer 

Postfach 1171S, 8458 Sulzbach 

Tel : 09661/6592 bis 21 Uhr G 


NLQ 401, Traktor, 350,- mit Farb¬ 
bändern + Haube 0228/348798 


Toshiba 3200 

6 Monate alt - kaum benutzt - mit Dico- 
nix Printer. Zusatzstation für 51/4 Zoll-Dis¬ 
ketten, Lotus 1-2-3 Programm Preis 
DM 10000- zzgl. MWSt DM 1.400- 
Chiffre 020988PC 


Monitor GT 65 für CPC = 120 DM 
Original verpackt, = 0 51 37/136 62 


Externes Netzteil für Schneider PC, 

120 Watt aus Commodore PC 10 mit 
Anschlußkabel passend für Schneider 
PC 1512/1640 nur 120- DM 
City-Computer W, Horejsi 
Berliner Straße 65,3320 Salzgitter 1 
Tel 05341/1 6800/1 6822 G 


Amstrad und Schneider Tower-EGA- 
EURO-und Portable PC‘31/2 + 

51/4“ Floppy und Festplatten * Telefax 

* BTX * Neue und gebrauchte 464/ 
6128/PC/ Floppy/Drucker / Textsyste¬ 
me 8512 + 9512 * Star + Epson 
Drucker * Gebr. Monitor GT 65=120 DM; 
GT 640=380 DM ’ PC MM/Farbmoni- 
tore * Literatur und Software für alle 
Bereiche * Ankauf bei Systemwechsel 

* Reparaturservice * Manfred 

Kobusch, Bergenkamp 8, 4750 Unna, 
02303/13345 G 


6128 + GT 65 + Software + Spiele + an 
deres Zubehör. Tel.: 0581/7 4499 
Preis: 650 DM 


Supergünstig: CPC 664 + GT 65 + viele 
Spiele und Anwendersoft + Hefte etc. 
xxxxxxxx 0 89/6 0142 22 xxxxxx 


Joyce PCW 8256 DTP System 
-Scanner-Bildsch.Filter- 
—Software—Bücher—Disketten— 

Preis 1500 DM Tel: 0 75 24/24 27 od. 
075 05/6 60 ab 16 Uhr 


Fischertechnik Computing Bau¬ 
kasten + Interface CPC kompl 
DM250,- 0 93 52/72 33 ab 19 Uhr. 


Vortex FI X f. CPC 464 200,- DM 
Textomat Datamat f. CPC 464 je 
50,-DM Chiffre 030988PC 


Verkaufe CPC 6128 + 2 Disklaufwerk 
360 KB + Farbmonitor + Comp.Zeit- 
schriften + div. Progr. VB 1100 DM 
A. Plath, Zentmarkweg 39, 6 Frankfurt 90 


ASD 20 MB Harddisk f Joyce mit 
Garantie, NP 1998,- für 1600.— 
dBasell 130- Tel.05531/4553 


Joyce-t-, incl. RS232 + Diskbox 1300 DM 
28 CF2 120 DM, 7 Databox 100 DM, 

SW: Profirem 100, DR-Graph 100, 

Starbase 100, Business-Star 170, 

Spell 50 DM, kplt. 2000 DM 
Tel. 04342-83543 


Joyce PCW 8256 (9 Mon. alt) + 
Bildschirmfilter + Druckerverl. 

+ 15 Disk für DM 1100- (VB); 
PC-lnt. 1/87-9/88 für DM 100,-; 
Michael Risse, Wilhelm-Leuschner 
Straße 59, 6054 Rodgau 5 


Vortex SP512/X64 ■ T. 0 89/6 70 31 07 


Suche Software 


Haushaltsführung, Kassenbuch, CD, 
Video, Konto, Games f. CPC 6128 
Friebe, K.-Adenauer-Slr. 20, 

3008 Garbsen 1, Tel. 05137/136 62 


Suche Heizkostenabrechnung für 
CPC 6128 061 92/39357 H. Wiegand 
Am Pfingstbrunnen 2,6238 Hofheim 


varDAT II, Buch f. dBase II, Dr. 

Graph, Multiplan, Aktienverw. 
u.a. Anw f CPC 6128 09802/7443 


Suche für Joyce 8256: Comac-Liqu. 
oder ALGO-GOÄ Liquidations-Pro¬ 
gramm. Tel. 0761/2746 39 ab 1800 


Suche Spiele für Schneider PC 
1640. B. Borchers, Englschalkinger 
Str. 240, 8000 München 81 


Suche Joyce-Software wie z.B 
Polyplot oder Grafpad 3 CAD 
und Druckerprogramme Zahle je 
nach Qualität Tel 06500/8268 


Für Joyce: Suche dringend Demo- 
Grafikprogr. + Turnierauswertung 
(Fußb. + Waldl.) Tel. 04231/5508 


TURBO LADER BUSINESS (M&T) 040/491 7554 


Suche Hardware 


Geor., guten 51/4" Foppy f CPC 
sucht Tel. 04975-757 Bitte Ang 


Su bilg CPC od PC (mögl kompl) 
Angebot an Tel 08841/40346 


Suche billig Joyce oder Joyce 
plus Tel 02051/814 77 


Suche MP1/MP2 Tel: 08151/51713 


Verschiedenes 


Amstrad PC 1512/1640 USER-CLUB 
bietet mti. Zeitschrift, Soft¬ 
ware, Hilfe und mehr für alle! 

Info gg. Rückp. von Rolf Knorre 
Postf 200102,5600 Wuppertal 2 


*** Achtung Zugreifen *** 

* Panasonic 3" Disketten ** * 

* * CF2 lOner Pack * 

Nur 49,- DM + Versandkosten 
R.E. Eleklronic 

•Tel: 0 63 03/47 65 * G 


THOMSON-Computer-Clob sucht alle 
THOMSON-User! Jetzt auch 
THOMSON T016PC! St Sedlaczek, 
Ginsterweg 1a, 5063 Overath 8!!!! 


Überträge Programme von Disk zu 
Disk. Nur 10,- DM. Schicken Sie 
einfach das Original und eine 
leere Diskette an: A. Rodriguez 
Hauptstr. 40,6364 Niddatal 4 
••••••••••••••••••G 


Spiel-Club sucht Mitglieder! 
Postspiele; PD-Spiele u.v.m. Info: 

M Nerger; Ankerstr. 3; 5650 Solingen 


Clubs 


Neugründung des Computerclubs Graz 

Folgende Clubleisfungen werden regional 
uno überregional angeboten: 

- monatliche Clubzeitschrift 

- Programmbibliothek 

- Public-Domain-Software-Service 

- Günstige Angebote für Mitglieder und 

- Hilfe bei allen Problemen unb Fragen 
Der Computerclub Graz finanziert sich 
durch einen Mitgliedsbeitrag in der Höhe 
von nur S 200,-/DM 30,- pro Jahr. Dieser 
geringe Mitgliedsbeitrag sollte jedem die 
Möglichkeit geben, unsere zahlreichen 
Clubleistungen in Anspruch zu nehmen 
Wir arbeiten mit felgenden Computern: 

- Atari ST, Commodore 64, Amiga, 

- IBM-kompatible Rechner. Schneider PC. 

- Schneider CPC, Sinclair QL 

- ZX Spectrum 
Computerclub Graz 

Postfach 9, A-8151 Hitzendorf bei Graz 


O.A.F. Club Neu/Ulm nur CPC 

O.A.F. Club sucht noch neue Mitglieder. Wir 
suchen auch Kontakt zu anderen Clubs 

- Softwareaustausch 

- eigene Clubzeitschrift 

- Softwaretests 
Erfahrungsaustausch 

- große Programmbibliothek 

- und vieles mehr 
Kontaktadresse: Andreas Kölle, 

Saalbaustr. 4/1, 7910 Neu-Ulm/Pfuhl, 

Tel: 0731/71 2537 


Hello Freaks. 

Der Computerclub «Syntax Terror» 

sucht noch Mitglieder. Wer einen CPC 464/ 
664 oder 6128 hat, ist schon so gut wie da 
oei Eine Clubzeitschritt ist in Planung Bei¬ 
träge gibt es nicht. Wer sich informieren 
möchte, der soll schnell zur Feder greifen 
und an folgende Adresse schreiben: 
Christian Röhr, Hirzsteinstr. 49, 

3501 Schauenburg 1. PS. Bitte 0,80 DM 
Rückporto beilegen! 


Der Computerclub FEHLER IM SYSTEM 
Halle (Westf.) Wir sind ein Club mit ca. 30 
Mitgliedern und bestehen seit Ende 1984. 
Wir gründeten den Club als reinen (und ei¬ 
ner der ersten) Club für den Schneider 
CPC, öffneten uns jeaoch im vergangenen 
Jahr und haben jetzt auch Mitglieder von 
Systemen wie dem Commodore Amiga 
oder IBM-PC's. Wir legen im Club großen 
Werl auf die Clubtreffen, auf oenen alle 
wichtigen organisatorischen Maßnahmen 
oesprochen werden Natürlich hat jedes 
Mitglied, auch Oie minderjährigen, eine 
Stimme und kann an der Gestaltung des 
CluOlebens aktiv mitarbeiten Der Club bie¬ 
tet dem Mitglied außer der Clubzeitschrift 
POINTER, die jeweils quartalsmäßig er¬ 
scheint, eine umfangreiche Bibliothek an 
Büchern, Zeitschriften und Software, zahl¬ 
reiche Kurse zu Themen wie Assemblerpro¬ 
grammierung, Pascal u.s.w„ Fahrten zu 
Messen und Treffen mit anderen Compu- 
lerclubs, eine Hotline (Telefon Nr.: 0 52 45/7631) 
und vieles mehr an Das Angebot soll bald 
mit einem Public-Domain-Pool und einer 
clubeigenen Mailbox abgerundet werden 
Unsere Clubtreffen finden samstags um 
1500 Uhr im Kiskerhaus in Halle statt und 
dauern bis ca 17.30 Uhr. Natürlich ver 
pflichtet der Besuch eines unserer Cluotref- 
fen mcht zur Mitgliedschaft, so naß jeder 
(auch Frauen sind angesprochen!), kom¬ 
men kann ohne gleich Angst haben zu 
müssen, einen Mitgliedsantrag unterschrei¬ 
ben zu müssen, Wer interessiert ist, oe- 
kommt bei folgender Adresse noch mehr 
Infos: CFS, Matthias Hovestadt, Kirchslr. 25 
4836 Herzbrock-Clarholz, HOTLINE: 
05245/7631 (von 1400 bis 22.00 Uhr) 
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Händlerverzeichnis—i 


Ahnatal-Weimar 


Düsseldorf 


Nürnberg 



B 

Computer und Software 
SchneiderVertragshändler 

COMPUTER 


a 

Ahnatalor Computerladen 

3501 Ahnatal-Weimar 
Wilhelmsthaler Str. 26 b 

Tel. (0 5609) 28 56 


Schneider 

rnmoi itco nn iicion 

_ LUIII lulk ui^ijiuii 

Beratung 
Vertrieb 

Service _ 

BURO-OfiGANISATION DATENTECHNIK VertneBsgesellschaN rnciH 
4000 DusselOOfl I Focoenslfa'ie 13 Tel 0211/308071 



Berlin 


Hamburg 


Hard- u. Softwa 

r _ Commodore 64/128 
Amlga Joyce 

PKS1 

PC’s und AT's 
Schneider CPC 
Kostenlosen Katalog 
anfordern! 


Ladengeschäftszeiten Mo-Fr 10-18 Uhr • Sa 10-13 Uhr 


W Müller und J. Kramke GbR 


mükra 

DATEN-TECHNIK 


Schöneberger Straße 5 -1000 Berlin 42 • Tel 030-752 91 50 



Castrop-Rauxel 



EtC GUTE IDEE NACH DER AM36HEN 

Schuster Electronic 

ctmiW n* COMKiTf* t i 

Schneider 

.'(WWfMinWWi 

Vertrags lundlei 

ft Commodore 

Vertragswerkstatt 
Obere Munsterslr 33 4620 Castrop- Raunet (0230513770) 



Branchen- u. Sonderlösungen 

Microsoft IHiffl SIEMENS 


o 


- Vertragshändler - 


2 HH 70 Wandsbeker Zollstr. 98 
■S- 656 00 36 Fax 656 74 57 ° 


Kassel/Vellmar 


AMSTRAD/SCHNEIDER 



Löhne/Ostwestfalen 



Computer X SoHwaie/erntjis lut NiiMeulseiUnfl 
AMSTRAO , SCHNEIDER & VOflTFX RcotMTItaroler ä SEHVICE- 
CFNTRALE Sani! Currpucr. Drucker, Peapner e & Zubcliur 
v. A-Z. EDV Paprer etc ‘ Discs 

Fritz OBtRMElER complur'Telefäcbtxwvideo^tv 
+ KEC EPSON'TAkDOM'0ROTHFR‘STIKO *OKi‘SIA8*LOCO*ctc 
am 8ahmpl‘ BuPäct Sralifi 20‘4972 LÖHME 1 ‘Tel 05732 61 26,<32 46 



AMSTRAD/SCHNEIDER 

Vartragshändler 

Büro Knüppel & Co. 

Computer und Büromaschinen 

Riehenring 81 (MUBA) 

4058 Basel 
Telefon (061) 261262 


Eintragungen 
im Händlerverzeichnis, 
nach Städten geordnet, 
kosten je mm Höhe 
6,— DM bei einer 
Spaltenbreite von 
58 mm. 

Einträge möglich 
mindestens 
6 x innerhalb eines 
Insertionsjahres. 
Nähere Informationen: 
DMV-Verlag 
Wolfgang Brill 
Telefon (O 56 51) 80 09-0 


Anzeigenschluß 
für die 

Ausgabe 11/88 
von 

PC International 
ist der 
22.9.88 

Erscheinungstermin 
ist der 
26.10.88 


DD 


CFO® KD02S (MISTS R30IX 


Für den 
Programmhit 
des Monats 

1 . 000 ,— 


Und für den 
Top-Tip 
des Monats 

500 ,— 


Das sind doch gute Argumente , Ihr Programm auch einmal zum Hit des 
Monats werden zu lassen. Bitte richten Sie Ihre Einsendungen an: 

DMV Daten & Medien Verlagsgesellschaft mbh — Fuldaerstr 6 - 3440 Eschwege 
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r~Vorschau 


Unser Hauptthema im 
nächsten Heft: Daten¬ 
fernübertragung! 
Für alle die sich mit 
Ihrem Computer die 
Welt nach Hause 
holen wollen, bringen 
wir Grundlagen und 
Informationen. 



10/88 

»PC International« 
erhalten Sie ab 
28. September bei 
Ihrem 

Zeitschriftenhändler 


CPC-Programme: 

Uni-Data 

Hin Programm für Programmierer — 
erstellen Sie sich Ihre eigene relative 
Datei Verwaltung, komfortable RSX- 
Befehle unterstützen Sie dabei. 


LOOK 

CPC-Spieler aufgepaßt: Hier ist eine 
Superumsetzung des Mah-Jongg-Spie- 
les auf Ihrem Computer. Eine dreidi¬ 
mensionale Spielfläche und eine kom¬ 
fortable Joystick-Bedienung machen 
das Spiel zu einem Erlebnis. 



Sehen Sie sich das Bild genau an. Dieses Super¬ 
spiel erwartet Sie im nächsten Heft: LOOK, eine 
Mah-Jongg-Version der Sonderklasse, die Ihnen 
lange Spielabende garantiert. 


Tips & Tricks: _ 

Eine Miniatur-Hardcopy, fast so klein 
wie eine Briefmarke, ein Programm 
zum retten schadhafter Kassettenfiles, 
neue Bildschirmroutinen für optimalen 
Screenaufbau, Diskettentools - alles 
das und vieles andere mehr erwartet 
Sie im neuen Heft. 


PCW: 


LocoScript wird CP/M-fähig - die 
Fortsetzung des in Heft 1/88 erschiene¬ 
nen Artikels. 



LocoScript wird noch CP/M-fähiger. Zu diesem 
Artikel bringen wir Neuerungen und Verbesse¬ 
rungen. 


Den Spooler aus dem JOYCE-Sonder- 
heft 3 gibt es nun in einer verbesserten 
Version, wir bringen Sie im neuen 
Heft. 

Interessante Reviews werden wir für 
Sie haben, zum einen über das Loco- 
Post-Programm, zum anderen über den 
neuen PCW-Scanner. 

Natürlich gibt es auch wieder Tips und 
Tricks, so unter anderem zu LocoMail. 


PC: 


Reviews über das Programm PC-Kasse 
und über ein universelles Druckpro- 
gramm namens ’Kleindruckteufel’ fin¬ 
den Sie ebenso wie einen Artikel über 
intelligente Batchfiles und ’School — 
Literatur-und Stichwortverzeichnis’, 
ein in BASIC2 geschriebenes Pro¬ 
gramm, das nicht nur Schüler brauchen 
können. 


Die Inserenten 


Amstrad.120 

Arnor.89 

CG Computerstore.109 

CMZ Verlag.9 

CPS Computertechnik.70 

Computer-Shop Schönaich.23 

CSV Riegert.7 

DMV.2,26,33,43,63,68, 

.69,75,93,103,105,119 

Dobbertin.95 

G + L Electronic.45 

Göddecker.45 

Hashagen.7 

Chr. Keller.8 

Kotulla.31 

Krebs Electronic.81 

Mimpex.8 

Mükra.24 

Prosoft.39 

PR8-Soft.51 

Schuster.60,61 

Unikat.9 

Vortex.37,47 

Weeske.14,15 

Werder.81 

V. d. Zalm.70 
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Farb«n U«st i mwn ■ 
OanonstratIon 
Constr-uot Ion S»t ^ 

SpieIstart 
Ende de* Spiels 

II von Hartnut Pfarr-, Hov. 87 


DMV GmbH ■ Postfach 250 ■ 3440 Eschwege 


pe-smmx fi/ 0.2 


wm 


po-spmsox fi/ 0.1 


tmev x 


Hier erwartet Sie ein Geschicklichkeitsspiel der besonderen Art. 

Sie steuern einen kleinen Roboter, der von Ebene zu Ebene springen kann. Allerdings stehen diese unter 
Strom, so daß Jackey versuchen muß. durch die Lücken zu springen, ohne die Ebenen von unten zu berüh¬ 
ren. Dabei gilt es natürlich, möglichst nicht die vielen Monster zu berühren, die Jackey das Leben schwer 
machen Auf der anderen Seite können Sie auf Ihrem Weg nach oben eine ganze Reihe von Boni einsam¬ 
meln, die Ihren Score gehörig aufpolieren können. Programmiert von Hartmut Pfarr, dem bekannten DMV- 
Autor, verspricht Jackey ein echter Renner zu werden. Versäumen Sie also auf keinen Fall die aufregenden 
Abenteuer des kleinen Roboters Jackey. 

Die Abenteuer des kleinen Jackey sind im System MS-DOS erhältlich. 


mmsio/i 

Ein excellentes Shoot’em up auf Ihrem PC! 

Besteigen Sie Ihr Schiff und retten Sie den Mond. Außerirdische Kreaturen haben sich dort eingenistet und 
behindern die Aktivitäten der Menschen. Deshalb ist es jetzt Ihre Aufgabe, den Mond von diesen Wesen zu 
befreien Die größte Hilfe bei Ihrer Aufgabe ist Ihr kleines Raumschiff, daß Sie im Verlauf dieses Spieles mit 
zahlreichen Extrafeatures ausrüsten können Trotzdem keine einfache Aufgabe, da die Außerirdischen be¬ 
reits mehrere Stützpunkte eingerichtet haben. Wenn Sie den ersten Sektor gesäubert haben, bekommen Sie 
einen Bonus und können sich am nächsten versuchen. Starvision verspricht somit viele Stunden spannen¬ 
der Unterhaltung. 

Starvision ist im System MS-DOS erhältlich 


Best.-Nr. 5 1/4“ Disk. 1291 
Best.-Nr. 3 1/2“ Disk. 1292 


49, -DM 


Das Geschicklichkeitsspiei tur den PC überhaupt! 

w e m einem Squashcou’ t spie en Sie e non Bau von rechts nach links durch einen auf drei Seiten geschlossenen Bildschirm. Auf der 
o’fenen Seite müssen Sie m i hrem Schläger verhindern, daß der Ball ins Aus geht Im Spielfeld selbst befinden sich unterschiedliche 
Hindernisse dm |ortos für sich, unlerschie Gliche Auswirkungen aut den werteren Spielverlauf haben. So gibt es Blöcke, die dem Spie¬ 
ler, sobald sie getroffen wu-den, einen fcxiraball gutschreiben. Andere wiederum ziehen einen Ball ab, zählen Bonus, vorschnellem 
das Spiel und und und 

Isi es Ihnen gelungen, alle Hindern sse zu beseitigen, gelangen Sie in das nächste Bild von Bimbo, das Sie wiederum mit neuen Hin¬ 
derniskonstellationen konfrontiert. 

Aber Bimbo ist mehr als nur ein Spiel. M itels des zum Programm gehörenden Editors sind Sie in der Lage, sich genau die Bilder zu- 

sammenzusetzen, die Sie gerne spielen möchten. 

SOMCfß 

Bouncer versetzt Sie hinter das Lenkrad eines ganz besonderen Automobils. Oas Bounce'O'mobil kann springen. Daß es dies nicht 
r| ur aus Spaß an der Freuce tut. wird spätestens beim ersten Felsbiocken klar, der Ihnen den Weg versperrt. Nun sind Sie gefordert, 
überspringen Sie das Hindernis Jedocn werden Sie nicht nur durch nerumliegende Findlinge gehandicapt. So manche Brücke, die 
Sie aul Ihrer Fahrt überqueren müssen ist eingestürzt, tollwütige Vögel versuchen, sich aus der Luft auf Sie zu stürzen, Straßensper¬ 
ren blockieren den Weg. und der rachsüchtige Pilot einer Sportmaschine stellt Ihnen nach 
Wird es Ihnen gelingen, die Staße bis zu ihrem Ende zu fahren? 

Bouncer, die PC-Variante eines erfolgreichen Arcade Automaten, wurde 100% in Maschinencode geschrieben 

Best.-Nr. 5 1/4“ Disk. 129 
Für MS-DOS erhältlich Best.-Nr. 3 1/2“ Disk. 185 
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Das Spiel für die ganze Familie! 

olo mir ftln Onlnl 1/KI/VA/ rr%r* 


Mehr als nur ein Spiel KNOW-PC 

> v • kann eine unbegrenzte Anzahl von Fragen und Antworten verwalten • bietet die 
\y Möglichkeit, eigene Fragen In einem selbstgewählten Wissensgebiet einzugeben, 
y und zwar mit einem komfortablen Editor • ist vollkommen menuegesteuert • be- 

- sitzt eine Supergrafik stellt zu jeder Frage wahlweise 5 oder 1 Antwort zur 
Auswahl • verhindert, daß eine richtig beantwortete Frage nochmals er- 

> scheint • gibt alle Fragen und Antworten sowie sämtliche Aufforderungen 

- für jeden Spieler und für jedes Wissensgebiet mit Angabe der jeweiligen 
Plazierung aus • ist spielbar mit 1 - 4 Einzelspielern oder in Gruppen 

mit einem Vielfachen davon • kann man mit der ganzen Familie spielen, 
da jeder eine Mindestchance von 1 :5 hat • muß man mit Strategie spie 
len, da der Beste in jedem Wissensgebiet am Ende noch Zusatzpunkte 
bekommt • verlangt keinerlei Programmierkenntnisse • wird mit 13 ver¬ 
schiedenen Wissensgebieten ausgeliefert • kann auch für andere 
Zwecke Verwendung finden, z.B. als Vokabeltrainer. 

Was ist KNOW-PC? 

KNOW-PC ist ein Frage- und Antwortspiel der Extraklasse, denn es 
bietet Ihnen nicht nur kurzweilige Unterhaltung, sondern ist darüber 
hinaus hervorragend dazu geeignet, eigene Fragen einzugeben, mit 
denen Sie Ihre Familie, Ihren Skatverein, Ihre Mitschüler, Kegelbrü¬ 
der, Arbeitskollegen. Freunde usw. überraschen können, 

Konfiguration: 

PC XT/AT mit 512 kByte oder mehr, 1 Diskettenlaufwerk oder Festplatte, 
MS-DOS ab Version 2.0 oder größer, für Farbgrafik, Monochrom. Her¬ 
cules oder EGA. 


Best.-Nr. 5 1/4“ Disk. 161 
Best.-Nr. 3 1/2“ Disk. 162 


* Unabhängig von der Anzahl der bestellten Programme berechnen wir für das Inland 3,- DM bzw. für das Ausland 5,- DM Porto und Verpackung. 

Bitte benutzen Sie die Bestellkarte 
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^ mTRAD Por^bl f-K/'^licbes NW 


Jeder „Standard“ ist nur das, was man aus ihm macht. 

Zum Beispiel AMSTRAD; Da gibt es jetzt den ersten PC am Griff - 
ohne lästiges Netzkabel. Damit ist ein vollwertiger PC so 
unabhängig wie ein Batterie-Rasierer. Nur einer von vielen Beweisen 
für die Ideen und die Leistung von AMSTRAD-Computern. 
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Oruckerab»^ M* 

Computer sind für jeden da. 

Händler- und Produkt-Informationen bei AMSTRAD GmbH, Abt. VKF 
Robert-Koch-Straße 5, 6078 Neu-Isenburg 












